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.