Skip to content
Snippets Groups Projects
Commit 024c46fa authored by rtoy's avatar rtoy
Browse files

GET-BEST-AUTHORIZATION wasn't handling the case of a :local connection

where the xauth file only contained one entry for localhost/unix:0.
When the protocol is :local, we explicitly check for localhost.
Previously, the host-address was converted the hostname, which isn't
"localhost".
parent 9dbfec1d
No related branches found
No related tags found
No related merge requests found
...@@ -19,7 +19,7 @@ ...@@ -19,7 +19,7 @@
;;; ;;;
#+cmu #+cmu
(ext:file-comment "$Id: display.lisp,v 1.15 2009/07/13 13:54:35 rtoy Rel $") (ext:file-comment "$Id: display.lisp,v 1.16 2010/11/16 19:13:55 rtoy Exp $")
(in-package :xlib) (in-package :xlib)
...@@ -117,7 +117,9 @@ ...@@ -117,7 +117,9 @@
(read-xauth-entry stream) (read-xauth-entry stream)
(unless family (return)) (unless family (return))
(when (and (eql family protocol) (when (and (eql family protocol)
(equal host-address address) (or (equal host-address address)
(and (eql family :local)
(equal address "localhost")))
(= number display) (= number display)
(let ((pos1 (position name *known-authorizations* (let ((pos1 (position name *known-authorizations*
:test #'string=))) :test #'string=)))
......
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