[climacs-cvs] CVS climacs

[thenriksen]

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