Changeset 7322


Ignore:
Timestamp:
Sep 29, 2007, 10:08:56 PM (12 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/hemlock/src/killcoms.lisp

    r6660 r7322  
    178178
    179179(defcommand "Exchange Point and Mark" (p)
    180   "Swap the positions of the point and the mark."
     180  "Swap the positions of the point and the mark, activating region"
    181181  "Swap the positions of the point and the mark."
    182182  (declare (ignore p))
     
    185185    (with-mark ((temp point))
    186186      (move-mark point mark)
    187       (move-mark mark temp))))
     187      (move-mark mark temp)))
     188  (activate-region))
    188189
    189190(defcommand "Mark Whole Buffer"  (p)
Note: See TracChangeset for help on using the changeset viewer.