[mcclim-cvs] CVS mcclim/Drei - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

27 Dec 2007

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv24676/Drei
Modified Files:
    base.lisp core-commands.lisp packages.lisp 
Log Message:
Added kill-region function to DREI-BASE.

--- /project/mcclim/cvsroot/mcclim/Drei/base.lisp	2007/12/08 08:53:50	1.7
+++ /project/mcclim/cvsroot/mcclim/Drei/base.lisp	2007/12/27 13:39:25	1.8
@@ -373,6 +373,14 @@
       (insert-sequence mark (make-string (- column set-column)
                              :initial-element #\Space)))))
+(defun kill-region (mark1 mark2)
+  "Kill the objects between `mark1' and `mark2', one of which may optionally be an offset.
+That is, push the objects of the delimited region onto
+`*kill-ring*', and delete them from the buffer."
+  (kill-ring-standard-push
+   *kill-ring* (region-to-sequence mark1 mark2))
+  (delete-region mark1 mark2))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; 
 ;;; Character case
--- /project/mcclim/cvsroot/mcclim/Drei/core-commands.lisp	2007/12/19 11:02:05	1.11
+++ /project/mcclim/cvsroot/mcclim/Drei/core-commands.lisp	2007/12/27 13:39:25	1.12
@@ -441,9 +441,7 @@
 (define-command (com-kill-region :name t :command-table editing-table) ()
   "Kill the objects between point and mark.
 That is, push them onto the kill ring, and delete them from the buffer."
-  (kill-ring-standard-push
-   *kill-ring* (region-to-sequence (mark) (point)))
-  (delete-region (mark) (point)))
+  (kill-region (mark) (point)))
(set-key 'com-kill-region
     'editing-table
--- /project/mcclim/cvsroot/mcclim/Drei/packages.lisp	2007/12/21 23:10:49	1.24
+++ /project/mcclim/cvsroot/mcclim/Drei/packages.lisp	2007/12/27 13:39:25	1.25
@@ -104,6 +104,7 @@
            #:constituentp
            #:just-n-spaces
            #:move-to-column
+           #:kill-region
            #:buffer-whitespacep
            #:buffer-region-case
            #:buffer-looking-at #:looking-at
@@ -491,7 +492,7 @@
   (:use :clim-lisp :clim :clim-extensions :drei-buffer :drei-base 
         :drei-syntax :drei-fundamental-syntax :flexichain :drei
         :drei-motion :drei-editing :esa-utils :esa :drei-core :esa-io
-	:drei-lr-syntax)
+	:drei-lr-syntax :drei-kill-ring)
   (:export #:lisp-syntax #:lisp-table
            #:lisp-string
            #:edit-definition

    