[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	input-editing-drei.lisp 
Log Message:
Stuff inserted via the presentation history should never be an accept
result.


--- /project/mcclim/cvsroot/mcclim/input-editing-drei.lisp	2006/11/27 07:44:46	1.3
+++ /project/mcclim/cvsroot/mcclim/input-editing-drei.lisp	2006/12/03 19:18:06	1.4
@@ -208,7 +208,9 @@
       (multiple-value-bind (object type)
           (presentation-history-next history accepting-type)
         (when type
-          (presentation-replace-input stream object type (stream-default-view stream)))))))
+          (presentation-replace-input stream object type (stream-default-view stream)
+                                      :allow-other-keys t
+                                      :accept-result nil))))))
 
 (defun history-yank-previous (stream input-buffer gesture numeric-argument)
   (declare (ignore input-buffer gesture numeric-argument))
@@ -219,7 +221,9 @@
       (multiple-value-bind (object type)
           (presentation-history-previous history accepting-type)
         (when type
-          (presentation-replace-input stream object type (stream-default-view stream)))))))
+          (presentation-replace-input stream object type (stream-default-view stream)
+                                      :allow-other-keys t
+                                      :accept-result nil))))))
 
 (add-input-editor-command '((#\n :meta)) 'history-yank-next)