[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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