Changeset 14812 for trunk/source/cocoa-ide/hemlock/src/killcoms.lisp

Timestamp:

Jun 6, 2011, 6:22:07 PM (10 years ago)

Author:

svspire

Message:

Invert sense of arg in "Exchange Point and Mark" to be more like Fred.
Add "I-Search Yank Selection" plus (commented-out) binding to control-y
to provide Fred-like capability to select a string then control-s control-y
control-s to search for other instances of that string.
Left binding commented out for people who depend on current binding of control-y.

File:

• trunk/source/cocoa-ide/hemlock/src/killcoms.lisp (modified) (2 diffs)

trunk/source/cocoa-ide/hemlock/src/killcoms.lisp

@@ -180 +180 @@
 
 (defcommand "Exchange Point and Mark" (p)
-  "Swap the positions of the point and the mark, activating region.
-   With a prefix argument, deactivates region"
+  "Swap the positions of the point and the mark, deactivating region.
+   With a prefix argument, activates region"
   (let ((point (current-point))
         (mark (current-mark)))
@@ -188 +188 @@
       (move-mark mark temp)))
   (if p
-    (deactivate-region)
-    (activate-region)))
+    (activate-region)
+    (deactivate-region)))
 
 (defcommand "Mark Whole Buffer"  (p)