[mcclim-cvs] CVS mcclim

[rstrandh]

Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv5409

Modified Files:
	presentation-defs.lisp 
Log Message:
Another fix from Mike Watters.


--- /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2009/01/21 06:43:15	1.79
+++ /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2009/01/21 06:48:08	1.80
@@ -991,10 +991,8 @@
   (declare (ignore abort)))
 
 (defmethod stream-peek-char ((stream string-input-editing-stream))
-  (let ((char (read-char-no-hang stream nil nil)))
-    (when char
-      (unread-char char stream))
-    (or char :eof)))
+  (or (stream-read-gesture stream :peek-p t)
+      :eof))
 
 (defmethod stream-read-char-no-hang ((stream string-input-editing-stream))
   (if (> (stream-scan-pointer stream) (length (stream-input-buffer stream)))