Commit 8ad191cd authored by rydis's avatar rydis
Browse files

rydis-fix-open-default-display-screen

Fixes open-default-display to set the default screen of the display to the
default screen from get-default-screen

darcs-hash:20060331124242-d7e7b-c60429633af0897cb93fb63f7c5d14c01ed0662f.gz
parent f0c60766
......@@ -350,8 +350,9 @@ authority data for the local machine's actual hostname - as returned by
gethostname(3) - is used instead."
(destructuring-bind (host display screen protocol)
(get-default-display display-name)
(declare (ignore screen))
(open-display host :display display :protocol protocol)))
(let ((display (open-display host :display display :protocol protocol)))
(setf (display-default-screen display) (nth screen (display-roots display)))
display)))
(defun open-display (host &key (display 0) protocol authorization-name authorization-data)
;; Implementation specific routine to setup the buffer for a
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment