[mcclim-devel] fix for remove-command-from-command-table

[Vincent Arkesteijn]

Hi,

At present, remove-command-from-command-table doesn't, except for
menu-items. The attached patch fixes that.

Vincent.
-------------- next part --------------
Index: commands.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/commands.lisp,v
retrieving revision 1.58
diff -u -F^(def -r1.58 commands.lisp
--- commands.lisp	10 Mar 2006 21:58:12 -0000	1.58
+++ commands.lisp	13 Mar 2006 11:34:50 -0000
@@ -203,11 +203,11 @@ (defun remove-command-from-command-table
 	  (when (typep item 'menu-item)
 	    (remove-menu-item-from-command-table table
 						 (command-menu-item-name item)
-						 :errorp nil)
-	    
-	    (when (command-item-name item)
-	      (remhash (command-item-name item) (command-line-names table)))
-	    (remhash command-name (commands table)))))))
+                                                 :errorp nil))
+
+          (when (command-item-name item)
+            (remhash (command-item-name item) (command-line-names table)))
+          (remhash command-name (commands table))))))
 
 (defun add-command-to-command-table (command-name
 				     command-table