Changeset 7322

Timestamp:

Sep 29, 2007, 10:08:56 PM (13 years ago)

Author:

gz

Message:

Make c-x c-x activate region (first part of Ticket #86)

File:

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

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

@@ -178 +178 @@
 
 (defcommand "Exchange Point and Mark" (p)
-  "Swap the positions of the point and the mark."
+  "Swap the positions of the point and the mark, activating region"
   "Swap the positions of the point and the mark."
   (declare (ignore p))
@@ -185 +185 @@
     (with-mark ((temp point))
       (move-mark point mark)
-      (move-mark mark temp))))
+      (move-mark mark temp)))
+  (activate-region))
 
 (defcommand "Mark Whole Buffer"  (p)