Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv18349/Drei Modified Files: views.lisp Log Message: When clearing the undo history, also clear the undo accumulator. --- /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/01/23 19:01:40 1.28 +++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/01/24 09:25:17 1.29 @@ -259,7 +259,8 @@ (defmethod clear-undo-history ((undo-maintainer undo-mixin)) (setf (slot-value undo-maintainer 'tree) - (make-instance 'standard-undo-tree))) + (make-instance 'standard-undo-tree) + (undo-accumulate undo-maintainer) '())) ;;; undo-mixin delegation (here because of the package)