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