[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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