[climacs-cvs] CVS climacs

[thenriksen]

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))