[mcclim-cvs] CVS update: mcclim/input-editing.lisp

[Timothy Moore]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv13917

Modified Files:
	input-editing.lisp 
Log Message:
Fixed input editing problem reported by Luke Gorrie. Some old code in stream-read-gesture was causing the scan pointer to be incremented twice in some cases.
Date: Sun Feb 27 01:06:28 2005
Author: tmoore

Index: mcclim/input-editing.lisp
diff -u mcclim/input-editing.lisp:1.45 mcclim/input-editing.lisp:1.46
--- mcclim/input-editing.lisp:1.45	Fri Feb 25 15:15:17 2005
+++ mcclim/input-editing.lisp	Sun Feb 27 01:06:27 2005
@@ -141,13 +141,7 @@
 			(incf scan-pointer)
 			(throw-object-ptype (goatee::object gesture)
 					    (goatee::result-type gesture)))
-		       (t (incf scan-pointer)))
-		 (if (characterp gesture)
-		     (progn
-		       (unless peek-p
-			 (incf scan-pointer))
-		       (return-from stream-read-gesture gesture))
-		     (incf scan-pointer))))
+		       (t (incf scan-pointer)))))
 	 ;; The scan pointer should not be greater than the insertion pointer
 	 ;; because the code that set the insertion pointer should have queued
 	 ;; a rescan.