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

Modified Files: input-editor.lisp Log Message: Sometimes, the input-position may be larger than the size of the buffer.

Handle this without erroring.

--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/02/02 19:02:03 1.38 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/02/03 23:49:24 1.39 @@ -572,7 +572,9 @@ ;; input-position, so the user will not be able to ;; delete arguments prompts or other things. (drei-core:with-narrowed-buffer (drei - (loop for index from (1- (input-position stream)) above 0 + (loop for index from + (1- (min (input-position stream) + (size (buffer (View drei))))) above 0 when (typep (buffer-object (buffer (view drei)) index) 'noise-string) return (1+ index)