diff options
| author | Kim F. Storm <storm@cua.dk> | 2011-01-14 16:06:17 +0100 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2011-01-14 16:06:17 +0100 |
| commit | 8faba62c38f67693535c3471d867e66757b3b04e (patch) | |
| tree | b6cd42e449eed65522ff9c7db097c6c8604fcae6 /lisp/emulation | |
| parent | ab7eb8118053e3f9a992bf65afc874ab9fdb8b32 (diff) | |
| download | emacs-8faba62c38f67693535c3471d867e66757b3b04e.tar.gz emacs-8faba62c38f67693535c3471d867e66757b3b04e.tar.bz2 emacs-8faba62c38f67693535c3471d867e66757b3b04e.zip | |
* emulation/cua-base.el (cua--init-keymaps):
Remap exchange-point-and-mark in cua-global-keymap.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/cua-base.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index bc64608a284..9b754c49ee7 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el @@ -1438,6 +1438,7 @@ If ARG is the atom `-', scroll upward by nearly full screen." (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 @@ If ARG is the atom `-', scroll upward by nearly full screen." (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) |