[mcclim-cvs] CVS mcclim

[thenriksen]

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