[climacs-cvs] CVS update: climacs/base.lisp climacs/buffer.lisp climacs/packages.lisp

[Robert Strandh]

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 , at 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