emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r102844: * emulation/cua-base.el (cua


From: Kim F. Storm
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r102844: * emulation/cua-base.el (cua--init-keymaps):
Date: Fri, 14 Jan 2011 16:06:17 +0100
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 102844
committer: Kim F. Storm <address@hidden>
branch nick: trunk
timestamp: Fri 2011-01-14 16:06:17 +0100
message:
  * emulation/cua-base.el (cua--init-keymaps):
  Remap exchange-point-and-mark in cua-global-keymap.
modified:
  lisp/ChangeLog
  lisp/emulation/cua-base.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-01-14 12:17:24 +0000
+++ b/lisp/ChangeLog    2011-01-14 15:06:17 +0000
@@ -1,3 +1,8 @@
+2011-01-14  Kim F. Storm  <address@hidden>
+
+       * emulation/cua-base.el (cua--init-keymaps):
+       Remap exchange-point-and-mark in cua-global-keymap.
+
 2011-01-14  Tassilo Horn  <address@hidden>
 
        * progmodes/sh-script.el (sh-other-keywords): Add ZSH's foreach

=== modified file 'lisp/emulation/cua-base.el'
--- a/lisp/emulation/cua-base.el        2010-10-22 04:03:55 +0000
+++ b/lisp/emulation/cua-base.el        2011-01-14 15:06:17 +0000
@@ -1438,6 +1438,7 @@
   (define-key cua-global-keymap [remap yank-pop]               'cua-paste-pop)
   ;; set mark
   (define-key cua-global-keymap [remap set-mark-command]       'cua-set-mark)
+  (define-key cua-global-keymap [remap exchange-point-and-mark] 
'cua-exchange-point-and-mark)
 
   ;; scrolling
   (define-key cua-global-keymap [remap scroll-up]      'cua-scroll-up)
@@ -1452,7 +1453,6 @@
   (when cua-remap-control-v
     (define-key cua--cua-keys-keymap [(control v)] 'yank)
     (define-key cua--cua-keys-keymap [(meta v)] 'cua-repeat-replace-region))
-  (define-key cua--cua-keys-keymap [remap exchange-point-and-mark] 
'cua-exchange-point-and-mark)
 
   (define-key cua--prefix-override-keymap [(control x)] 
'cua--prefix-override-handler)
   (define-key cua--prefix-override-keymap [(control c)] 
'cua--prefix-override-handler)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]