Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv23363/Drei
Modified Files: input-editor.lisp Log Message: Fixed so non-movement of the scan pointer won't cause an error.
--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2006/12/10 19:28:49 1.13 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2006/12/11 22:55:28 1.14 @@ -821,10 +821,11 @@ nil)) ;; True if `gesture' was freshly read from the user, and not ;; just retrieved from the buffer during a rescan. - for freshly-inserted = (not (equal (buffer-object - (buffer drei) - (1- (stream-scan-pointer stream))) - gesture)) + for freshly-inserted = (and (plusp (stream-scan-pointer stream)) + (not (equal (buffer-object + (buffer drei) + (1- (stream-scan-pointer stream))) + gesture))) for form = (drei-lisp-syntax::form-after syntax (input-position stream)) ;; We do not stop until the input is complete and an activation ;; gesture has just been provided. The freshness check is so