[climacs-cvs] CVS esa

[crhodes]

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