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)