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

Modified Files: esa.lisp Log Message: Added `reset-esa' restart to break out of deadlocks.

--- /project/climacs/cvsroot/climacs/esa.lisp 2005/11/14 16:30:13 1.25 +++ /project/climacs/cvsroot/climacs/esa.lisp 2006/02/25 10:19:24 1.26 @@ -294,7 +294,13 @@ (process-gestures-or-command frame command-table)) (abort-gesture () (display-message "Quit"))) (redisplay-frame-panes frame)) - (return-to-esa () nil)))))) + (return-to-esa () nil) + (reset-esa () + ;; This restart is used to jump out of deadlocks where + ;; ESA will otherwise run an error-inducing gesture again + ;; and again. + (setf (remaining-keys *application-frame*) nil) + nil))))))

(defmacro simple-command-loop (command-table loop-condition end-clauses) (let ((gesture (gensym))