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)))