[climacs-cvs] CVS update: climacs/Persistent/persistent-undo.lisp

[Aleksandar Bakic]

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