diff options
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/cua-base.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 57ea683a1ff..39d3ff785ce 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el | |||
| @@ -1440,6 +1440,8 @@ If ARG is the atom `-', scroll upward by nearly full screen." | |||
| 1440 | ;; scrolling | 1440 | ;; scrolling |
| 1441 | (define-key cua-global-keymap [remap scroll-up] 'cua-scroll-up) | 1441 | (define-key cua-global-keymap [remap scroll-up] 'cua-scroll-up) |
| 1442 | (define-key cua-global-keymap [remap scroll-down] 'cua-scroll-down) | 1442 | (define-key cua-global-keymap [remap scroll-down] 'cua-scroll-down) |
| 1443 | (define-key cua-global-keymap [remap scroll-up-command] 'cua-scroll-up) | ||
| 1444 | (define-key cua-global-keymap [remap scroll-down-command] 'cua-scroll-down) | ||
| 1443 | 1445 | ||
| 1444 | (define-key cua--cua-keys-keymap [(control x) timeout] 'kill-region) | 1446 | (define-key cua--cua-keys-keymap [(control x) timeout] 'kill-region) |
| 1445 | (define-key cua--cua-keys-keymap [(control c) timeout] 'copy-region-as-kill) | 1447 | (define-key cua--cua-keys-keymap [(control c) timeout] 'copy-region-as-kill) |
| @@ -1499,6 +1501,7 @@ If ARG is the atom `-', scroll upward by nearly full screen." | |||
| 1499 | move-end-of-line move-beginning-of-line | 1501 | move-end-of-line move-beginning-of-line |
| 1500 | end-of-buffer beginning-of-buffer | 1502 | end-of-buffer beginning-of-buffer |
| 1501 | scroll-up scroll-down | 1503 | scroll-up scroll-down |
| 1504 | scroll-up-command scroll-down-command | ||
| 1502 | up-list down-list backward-up-list | 1505 | up-list down-list backward-up-list |
| 1503 | end-of-defun beginning-of-defun | 1506 | end-of-defun beginning-of-defun |
| 1504 | forward-sexp backward-sexp | 1507 | forward-sexp backward-sexp |