Mercurial > emacs
changeset 112227:07e52ed69b5d
* emulation/cua-base.el (cua--init-keymaps):
Remap exchange-point-and-mark in cua-global-keymap.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Fri, 14 Jan 2011 16:06:17 +0100 |
| parents | b47167f02517 |
| children | 417b1e4d63cd |
| files | lisp/ChangeLog lisp/emulation/cua-base.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jan 14 13:17:24 2011 +0100 +++ b/lisp/ChangeLog Fri Jan 14 16:06:17 2011 +0100 @@ -1,3 +1,8 @@ +2011-01-14 Kim F. Storm <storm@cua.dk> + + * emulation/cua-base.el (cua--init-keymaps): + Remap exchange-point-and-mark in cua-global-keymap. + 2011-01-14 Tassilo Horn <tassilo@member.fsf.org> * progmodes/sh-script.el (sh-other-keywords): Add ZSH's foreach
--- a/lisp/emulation/cua-base.el Fri Jan 14 13:17:24 2011 +0100 +++ b/lisp/emulation/cua-base.el Fri Jan 14 16:06:17 2011 +0100 @@ -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)