Fix open-default-display

Tiny patch. Also in <URL: http://rydis.no-ip.org:11147/src/clx/ >.

---
[rydis-fix-open-default-display-screen
rydis <at> cd.chalmers.se**20060331124242
 Fixes open-default-display to set the default screen of the display to the
 default screen from get-default-screen
] {
hunk ./display.lisp 353
-    (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)))
}
---

--

-- 
[Emacs] is written in Lisp, which is the only computer language that is
beautiful.  -- Neal Stephenson, _In the Beginning was the Command Line_

_______________________________________________
Portable-clx mailing list
Portable-clx <at> lists.metacircles.com
http://lists.metacircles.com/cgi-bin/mailman/listinfo/portable-clx
See http://www.cliki.net/clx for darcs URL(s)