Skip to content
Snippets Groups Projects
Commit 2cfbb9b9 authored by pw's avatar pw
Browse files

open-clx-display: use :protocol :unix in call to xlib:open-display

when host is "unix" magic host.
parent adf1fff8
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -53,6 +53,7 @@
;; to open an AF_UNIX socket instead of an AF_INET one. ;; to open an AF_UNIX socket instead of an AF_INET one.
;; This is supposed to be faster on a local server. ;; This is supposed to be faster on a local server.
(host-name "unix") (host-name "unix")
(protocol :unix)
(auth-name nil) (auth-name nil)
(auth-data nil) (auth-data nil)
(display-num nil) (display-num nil)
...@@ -89,6 +90,7 @@ ...@@ -89,6 +90,7 @@
(xlib::get-best-authorization (machine-instance) display-num :tcp))) (xlib::get-best-authorization (machine-instance) display-num :tcp)))
(let ((display (xlib:open-display host-name (let ((display (xlib:open-display host-name
:display display-num :display display-num
:protocol protocol
:authorization-name auth-name :authorization-name auth-name
:authorization-data auth-data))) :authorization-data auth-data)))
(when screen-num (when screen-num
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment