Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv28305/Drei

Modified Files: packages.lisp buffer.lisp Log Message: Added `region-to-string' function and exported the `condition-offset' accessor.

--- /project/mcclim/cvsroot/mcclim/Drei/packages.lisp 2006/11/19 11:39:45 1.6 +++ /project/mcclim/cvsroot/mcclim/Drei/packages.lisp 2006/11/22 21:23:24 1.7 @@ -32,6 +32,7 @@ #:mark #:left-sticky-mark #:right-sticky-mark #:standard-left-sticky-mark #:standard-right-sticky-mark #:clone-mark + #:condition-offset #:no-such-offset #:offset-before-beginning #:offset-after-end #:invalid-motion #:motion-before-beginning #:motion-after-end #:size #:number-of-lines @@ -52,7 +53,7 @@ #:delete-buffer-range #:delete-range #:delete-region #:buffer-object #:buffer-sequence - #:object-before #:object-after #:region-to-sequence + #:object-before #:object-after #:region-to-sequence #:region-to-string #:low-mark #:high-mark #:modified-p #:clear-modify #:binseq-buffer #:obinseq-buffer #:binseq2-buffer #:persistent-left-sticky-mark #:persistent-right-sticky-mark --- /project/mcclim/cvsroot/mcclim/Drei/buffer.lisp 2006/11/18 15:42:43 1.3 +++ /project/mcclim/cvsroot/mcclim/Drei/buffer.lisp 2006/11/22 21:23:24 1.4 @@ -665,6 +665,12 @@ (rotatef offset1 offset2)) (buffer-sequence (buffer mark1) offset1 offset2)))

+(defun region-to-string (start end) + "Return a string of the contents of the buffer associated with +the marks, from `start' to `end', of which at least one must be a +mark object." + (coerce (region-to-sequence start end) 'string)) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Buffer modification protocol