Changeset 6605

Timestamp:

May 25, 2007, 5:03:51 AM (18 years ago)

Author:

Gary Byers

Message:

Don't use "active regions" concept.

Stuff pushed on the kill ring goes to the clipboard.

File:

• branches/ide-1.0/ccl/hemlock/src/killcoms.lisp (modified) (5 diffs)

branches/ide-1.0/ccl/hemlock/src/killcoms.lisp

@@ -27 +27 @@
   "When set, some commands that affect the current region only work when the
    region is active."
-  :value t)
+  :value nil)
 
 (defhvar "Highlight Active Region"
@@ -226 +226 @@
                (eq last-type :char-kill-backward))
            (when *delete-char-region*
-             (ring-push *delete-char-region* *kill-ring*)
+             (kill-ring-push *delete-char-region*)
              (setf *delete-char-region* nil))
            (setf region (kill-region-top-of-ring region current-type)))
           ((zerop (ring-length *kill-ring*))
            (setf region (delete-and-save-region region))
-           (ring-push region *kill-ring*))
+           (kill-ring-push region))
           ((or (eq last-type :kill-forward) (eq last-type :kill-backward))
            (setf region (kill-region-top-of-ring region current-type)))
           (t
            (setf region (delete-and-save-region region))
-           (ring-push region *kill-ring*)))
+           (kill-ring-push region)))
     (make-region-undo :insert "kill" (copy-region region) insert-mark)
     (setf (last-command-type) current-type)))
@@ -310 +310 @@
           (t
            (when *delete-char-region*
-             (ring-push *delete-char-region* *kill-ring*)
+             (kill-ring-push *delete-char-region*)
              (setf *delete-char-region* nil))
            (let ((r (ring-ref *kill-ring* 0)))
@@ -322 +322 @@
                      :kill-backward))))))
 
+(defun kill-ring-push (region)
+  (hi::region-to-clipboard region)
+  (ring-push region *kill-ring*))
+
+
+  
 
 
@@ -342 +348 @@
   "Insert the region into the kill ring."
   (declare (ignore p))
-  (ring-push (copy-region (current-region)) *kill-ring*))
+  (kill-ring-push (copy-region (current-region))))
 
 (defcommand "Kill Next Word" (p)