[climacs-cvs] CVS esa

[thenriksen]

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

Modified Files:
	esa.lisp 
Log Message:
`com-extended-command' should not be named.


--- /project/climacs/cvsroot/esa/esa.lisp	2006/05/13 16:48:04	1.19
+++ /project/climacs/cvsroot/esa/esa.lisp	2006/07/21 07:58:42	1.20
@@ -650,9 +650,6 @@
 (set-key 'com-quit 'global-esa-table '((#\x :control) (#\c :control)))
 
 (define-command (com-extended-command
-                 ;; FIXME: I don't think it makes any sense for
-                 ;; Extended Command to be named.
-		 :name t
 		 :command-table global-esa-table)
     ()
   "Prompt for a command name and arguments, then run it."
@@ -953,6 +950,7 @@
                    'command-table
                    :stream stream)
           (princ "an unknown command table" stream))
+      
       (format stream ".~%")
       (when (plusp (length keystrokes))
         (princ "It is bound to " stream)