Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv18415
Modified Files: buffer.lisp Log Message: Minor bug fixes.
Date: Sun Jan 16 00:13:48 2005 Author: abakic
Index: climacs/buffer.lisp diff -u climacs/buffer.lisp:1.20 climacs/buffer.lisp:1.21 --- climacs/buffer.lisp:1.20 Sat Jan 15 18:39:24 2005 +++ climacs/buffer.lisp Sun Jan 16 00:13:46 2005 @@ -95,6 +95,8 @@ (defmethod initialize-instance :after ((mark left-sticky-mark) &rest args &key (offset 0)) "Associates a created mark with the buffer it was created for." (declare (ignore args)) + (assert (<= 0 offset (size (buffer mark))) () + (make-condition 'no-such-offset :offset offset)) (setf (slot-value mark 'cursor) (make-instance 'left-sticky-flexicursor :chain (slot-value (buffer mark) 'contents) @@ -103,6 +105,8 @@ (defmethod initialize-instance :after ((mark right-sticky-mark) &rest args &key (offset 0)) "Associates a created mark with the buffer it was created for." (declare (ignore args)) + (assert (<= 0 offset (size (buffer mark))) () + (make-condition 'no-such-offset :offset offset)) (setf (slot-value mark 'cursor) (make-instance 'right-sticky-flexicursor :chain (slot-value (buffer mark) 'contents) @@ -398,7 +402,7 @@
(defmethod delete-region ((mark1 mark-mixin) (mark2 mark-mixin)) (assert (eq (buffer mark1) (buffer mark2))) - (when (> (offset mark1) (offset mark2)) + (when (> (offset mark2) (offset mark1)) (delete-buffer-range (buffer mark1) (offset mark1) (- (offset mark2) (offset mark1)))))