From 2cfbb9b9140fdd1ca7bb49640aa7e4b50f0d1cec Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Wed, 16 Jul 2003 17:04:55 +0000
Subject: [PATCH] open-clx-display: use :protocol :unix in call to
 xlib:open-display when host is "unix" magic host.

---
 code/clx-ext.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/code/clx-ext.lisp b/code/clx-ext.lisp
index 6459e742e..979b639f9 100644
--- a/code/clx-ext.lisp
+++ b/code/clx-ext.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/clx-ext.lisp,v 1.15 2001/03/04 20:12:30 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/clx-ext.lisp,v 1.16 2003/07/16 17:04:55 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -53,6 +53,7 @@
 	   ;;     to open an AF_UNIX socket instead of an AF_INET one.
 	   ;;     This is supposed to be faster on a local server.
 	   (host-name "unix")
+	   (protocol :unix)
 	   (auth-name nil)
 	   (auth-data nil)
 	   (display-num nil)
@@ -89,6 +90,7 @@
           (xlib::get-best-authorization (machine-instance) display-num :tcp)))
       (let ((display (xlib:open-display host-name
                                       :display display-num
+				      :protocol protocol
                                       :authorization-name auth-name
                                       :authorization-data auth-data)))
 	(when screen-num
-- 
GitLab