Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv20634
Modified Files: base.lisp buffer.lisp packages.lisp Log Message: Moved forward-object and backward-object to the buffer protocol. Updated buffer.lisp and base.lisp accordingly. Also added the documentation of these functions to the Texinfo documentation.
Date: Sat Feb 5 08:04:04 2005 Author: rstrandh
Index: climacs/base.lisp diff -u climacs/base.lisp:1.30 climacs/base.lisp:1.31 --- climacs/base.lisp:1.30 Sun Jan 30 20:56:53 2005 +++ climacs/base.lisp Sat Feb 5 08:04:03 2005 @@ -39,16 +39,6 @@ (loop for ,offset from ,offset1 below ,offset2 do ,@body)))
-(defgeneric backward-object (mark &optional count)) - -(defmethod backward-object ((mark mark) &optional (count 1)) - (decf (offset mark) count)) - -(defgeneric forward-object (mark &optional count)) - -(defmethod forward-object ((mark mark) &optional (count 1)) - (incf (offset mark) count)) - (defun previous-line (mark &optional column) "Move a mark up one line conserving horizontal position." (unless column
Index: climacs/buffer.lisp diff -u climacs/buffer.lisp:1.24 climacs/buffer.lisp:1.25 --- climacs/buffer.lisp:1.24 Wed Jan 26 17:10:40 2005 +++ climacs/buffer.lisp Sat Feb 5 08:04:03 2005 @@ -86,6 +86,16 @@ (make-condition 'no-such-offset :offset new-offset)) (setf (cursor-pos (cursor mark)) new-offset))
+(defgeneric backward-object (mark &optional count)) + +(defmethod backward-object ((mark mark) &optional (count 1)) + (decf (offset mark) count)) + +(defgeneric forward-object (mark &optional count)) + +(defmethod forward-object ((mark mark) &optional (count 1)) + (incf (offset mark) count)) + (defclass standard-left-sticky-mark (left-sticky-mark mark-mixin) () (:documentation "A left-sticky-mark subclass suitable for use in a standard-buffer"))
Index: climacs/packages.lisp diff -u climacs/packages.lisp:1.46 climacs/packages.lisp:1.47 --- climacs/packages.lisp:1.46 Sat Feb 5 07:49:53 2005 +++ climacs/packages.lisp Sat Feb 5 08:04:03 2005 @@ -29,6 +29,7 @@ #:standard-left-sticky-mark #:standard-right-sticky-mark #:clone-mark #:no-such-offset #:size #:number-of-lines #:offset #:mark< #:mark<= #:mark= #:mark> #:mark>= + #:forward-object #:backward-object #:beginning-of-buffer #:end-of-buffer #:beginning-of-buffer-p #:end-of-buffer-p #:beginning-of-line #:end-of-line @@ -49,7 +50,6 @@ (defpackage :climacs-base (:use :clim-lisp :climacs-buffer) (:export #:do-buffer-region - #:forward-object #:backward-object #:previous-line #:next-line #:open-line #:kill-line #:empty-line-p