[climacs-cvs] CVS esa

[thenriksen]

Update of /project/climacs/cvsroot/esa
In directory clnet:/tmp/cvs-serv16927

Modified Files:
	esa.lisp 
Log Message:
Added pointer-documentation-stream handling to `esa-top-level'.


--- /project/climacs/cvsroot/esa/esa.lisp	2006/03/25 22:24:15	1.2
+++ /project/climacs/cvsroot/esa/esa.lisp	2006/03/26 14:29:42	1.3
@@ -298,7 +298,9 @@
     (let ((*standard-output* (car windows))
 	  (*standard-input* (frame-standard-input frame))
 	  (*print-pretty* nil)
-	  (*abort-gestures* `((:keyboard #\g ,(make-modifier-state :control)))))
+	  (*abort-gestures* `((:keyboard #\g ,(make-modifier-state :control))))
+          (*pointer-documentation-output*
+           (frame-pointer-documentation-output frame)))
       (unless (eq (frame-state frame) :enabled)
 	(enable-frame frame))
       (redisplay-frame-panes frame :force-p t)