[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv4340

Modified Files:
	commands.lisp 
Log Message:
Fixed broken :insert-default t in command parameters.

It wasn't being passed along in the call to ACCEPT in the acceptor. I
feel a bit odd about this fix, because I vaguely recall that this used
to work, at least in Climacs, but the code pretty obviously filtered
:insert-default keywords away.


--- /project/mcclim/cvsroot/mcclim/commands.lisp	2008/04/15 19:52:57	1.78
+++ /project/mcclim/cvsroot/mcclim/commands.lisp	2008/04/20 07:19:10	1.79
@@ -663,7 +663,7 @@
 
 (defun accept-form-for-argument (stream arg)
   (let ((accept-keys '(:default :default-type :display-default
-		       :prompt :documentation)))
+		       :prompt :documentation :insert-default)))
     (destructuring-bind (name ptype &rest key-args
 			 &key (mentioned-default nil mentioned-default-p)
 			 &allow-other-keys)
@@ -692,7 +692,7 @@
 (defun accept-form-for-argument-partial (stream ptype-arg command-arg
 					 original-command-arg )
   (let ((accept-keys '(:default :default-type :display-default
-		       :prompt :documentation)))
+		       :prompt :documentation :insert-default)))
     (destructuring-bind (name ptype &rest key-args)
 	ptype-arg
       (declare (ignore name))