Update of /project/climacs/cvsroot/climacs/Persistent In directory common-lisp.net:/tmp/cvs-serv1770/Persistent
Modified Files: persistent-undo.lisp Log Message: A minor mark-taming bug fix. The persistent undo/redo is a bit out of sync with the undo/redo methods on standard-undo-tree (especially redo), so I might have to define a p-undo-tree class and corresponding undo/redo methods to get around the problem.
Date: Tue May 24 23:32:43 2005 Author: abakic
Index: climacs/Persistent/persistent-undo.lisp diff -u climacs/Persistent/persistent-undo.lisp:1.1 climacs/Persistent/persistent-undo.lisp:1.2 --- climacs/Persistent/persistent-undo.lisp:1.1 Sat Mar 19 23:08:32 2005 +++ climacs/Persistent/persistent-undo.lisp Tue May 24 23:32:43 2005 @@ -61,4 +61,5 @@ (climacs-buffer::cursors buffer) #'(lambda (c) (flexichain::weak-pointer-value c buffer)) #'(lambda (wpc) - (setf (cursor-pos wpc) (min (cursor-pos wpc) (1- (size buffer)))))))) \ No newline at end of file + (setf (cursor-pos wpc) + (max 0 (min (cursor-pos wpc) (1- (size buffer))))))))) \ No newline at end of file