Update of /project/climacs/cvsroot/esa In directory clnet:/tmp/cvs-serv8220
Modified Files: esa.lisp Log Message: Don't handle all errors in com-extended-command
--- /project/climacs/cvsroot/esa/esa.lisp 2006/04/08 23:36:44 1.6 +++ /project/climacs/cvsroot/esa/esa.lisp 2006/04/24 19:52:56 1.7 @@ -472,9 +472,10 @@ (accept `(command :command-table ,(find-applicable-command-table *application-frame*)) :prompt "Extended Command") - (error () (progn (beep) - (display-message "No such command") - (return-from com-extended-command nil)))))) + ((or command-not-accessible command-not-present) () + (beep) + (display-message "No such command") + (return-from com-extended-command nil))))) (execute-frame-command *application-frame* item)))
(set-key 'com-extended-command 'global-esa-table '((#\x :meta)))