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)