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

Modified Files: input-editing.lisp Log Message: Don't error when completion fails in complete-input-rescan.

--- /project/mcclim/cvsroot/mcclim/input-editing.lisp 2008/02/03 08:06:31 1.68 +++ /project/mcclim/cvsroot/mcclim/input-editing.lisp 2008/02/03 10:38:58 1.69 @@ -592,12 +592,9 @@ (progn (unread-gesture gesture :stream stream) (return-from complete-input-rescan - (values object t input))) - ;; Do we actually want to signal this here? I - ;; don't think we should terminate the - ;; input-editing-session just because the user - ;; tries to complete invalid input. - (error 'simple-completion-error + ;; This used to be an error, but no one thought + ;; that was a really great idea. + (signal 'simple-completion-error :format-control "complete-input: While rescanning,~ can't match ~A~A" :format-arguments (list so-far gesture)