[mcclim-cvs] CVS mcclim

[ahefner]

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)