[climacs-cvs] CVS esa

[crhodes]

Update of /project/climacs/cvsroot/esa
In directory clnet:/tmp/cvs-serv8949

Modified Files:
	esa.lisp 
Log Message:
Handle parse errors on the minibuffer.  Not completely ideal, but 
probably mostly works right now.  Will work better with the new command 
processor.


--- /project/climacs/cvsroot/esa/esa.lisp	2006/05/02 18:01:49	1.9
+++ /project/climacs/cvsroot/esa/esa.lisp	2006/05/04 08:06:29	1.10
@@ -59,6 +59,17 @@
   (declare (ignore type args))
   (window-clear pane))
 
+(defmethod stream-accept :around ((pane minibuffer-pane) type &rest args)
+  (declare (ignore args))
+  ;; FIXME: this isn't the friendliest way of indicating a parse
+  ;; error: there's no feedback, unlike emacs' quite nice "[no
+  ;; match]".
+  (loop
+   (handler-case 
+       (return (call-next-method))
+     (parse-error ()
+       nil))))
+
 (defun display-minibuffer (frame pane)
   (declare (ignore frame))
   (when (message pane)