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

Modified Files: input-editor.lisp Log Message: Fixed clear bug in the Drei accept method for expressions.

--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/05/24 12:00:29 1.48 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/06/29 23:36:27 1.49 @@ -833,7 +833,8 @@ ;; above us will not believe us when we tell them that the ;; input is empty (delete-buffer-range (buffer (view drei)) start-scan-pointer - (stream-scan-pointer stream)) + (- (stream-scan-pointer stream) + start-scan-pointer)) (setf (stream-scan-pointer stream) start-scan-pointer) (simple-parse-error "Empty input") ;; We only want to process the gesture if it is fresh, because