Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv3573

Modified Files: buffer.lisp Log Message: `(setf column-number)' now returns the column.

--- /project/climacs/cvsroot/climacs/buffer.lisp 2006/06/12 19:10:58 1.34 +++ /project/climacs/cvsroot/climacs/buffer.lisp 2006/09/04 07:04:29 1.35 @@ -425,13 +425,17 @@ (buffer-column-number (buffer mark) (offset mark)))

(defgeneric (setf column-number) (number mark) - (:documentation "Set the column number of the mark.")) + (:documentation "Set the column number of the mark, return the + column number. Note that if `number' is larger than the length + of the line `mark' is in, `mark' will be moved to end of + line."))

(defmethod (setf column-number) (number mark) (beginning-of-line mark) (loop repeat number until (end-of-line-p mark) - do (incf (offset mark)))) + do (incf (offset mark)) + finally (return (column-number mark))))

(defgeneric insert-buffer-object (buffer offset object) (:documentation "Insert the object at the offset in the buffer. Any left-sticky marks