[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	commands.lisp 
Log Message:
When reading commands for `command-or-form', use the command history.


--- /project/mcclim/cvsroot/mcclim/commands.lisp	2007/01/06 12:51:16	1.69
+++ /project/mcclim/cvsroot/mcclim/commands.lisp	2007/01/17 12:09:46	1.70
@@ -1401,7 +1401,7 @@
 	  (if (member initial-char *command-dispatchers*)
 	      (progn
 		(read-gesture :stream stream)
-		(accept command-ptype :stream stream :view view :prompt nil :history 'command-or-form))
+		(accept command-ptype :stream stream :view view :prompt nil :history 'command))
 	      (accept 'form :stream stream :view view :prompt nil :history 'command-or-form)))
       (t
        (funcall (cdar *input-context*) object type event options)))))