[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv20491/Drei

Modified Files:
	input-editor.lisp 
Log Message:
Fixed the nemesis for my earlier Drei hubris. Never declare the last
bug fixed.


--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2007/08/20 14:27:13	1.18
+++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2007/08/20 20:07:45	1.19
@@ -341,9 +341,11 @@
       ;; XXX: This behavior for the :rescan parameter is not mentioned
       ;; explicitly in any CLIM guide, but McCLIM input-editing
       ;; machinery relies on it.
-      (when (and (or rescan (not equal))
-                 (or rescan (not rescan-supplied-p)))
-        (queue-rescan stream))
+      (if (and (or rescan (not equal))
+               (not (and (null rescan) rescan-supplied-p)))
+          (queue-rescan stream)
+          (incf (stream-scan-pointer stream) (- (length new-contents)
+                                                (length old-contents))))
       ;; We have to return "the position in the input buffer". We
       ;; return the insertion position.
       buffer-start)))