Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv7516
Modified Files: commands.lisp Log Message: When doing sub-accepts for `command-or-form', inherit the history of the `command-or-form' type.
--- /project/mcclim/cvsroot/mcclim/commands.lisp 2007/01/04 09:15:24 1.68 +++ /project/mcclim/cvsroot/mcclim/commands.lisp 2007/01/06 12:51:16 1.69 @@ -1401,8 +1401,8 @@ (if (member initial-char *command-dispatchers*) (progn (read-gesture :stream stream) - (accept command-ptype :stream stream :view view :prompt nil)) - (accept 'form :stream stream :view view :prompt nil))) + (accept command-ptype :stream stream :view view :prompt nil :history 'command-or-form)) + (accept 'form :stream stream :view view :prompt nil :history 'command-or-form))) (t (funcall (cdar *input-context*) object type event options)))))