Mercurial > emacs
diff lisp/emulation/cua-rect.el @ 107853:de5ba6f3514c
Bind `C-v' to `scroll-up-command' and `M-v' to `scroll-down-command'.
http://lists.gnu.org/archive/html/emacs-devel/2010-04/msg00403.html
* window.c (keys_of_window): Rebind `C-v' from `scroll-up' to
`scroll-up-command' and `M-v' from `scroll-down' to
`scroll-down-command'.
* tutorial.el (tutorial--default-keys): Rebind `C-v' to
`scroll-up-command' and `M-v' to `scroll-down-command'.
* emulation/cua-rect.el (cua--init-rectangles):
* forms.el (forms--change-commands):
* image-mode.el (image-mode-map):
Remap scroll-down-command and scroll-up-command
in addition to scroll-down and scroll-up.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Wed, 14 Apr 2010 03:33:32 +0300 |
| parents | 1d1d5d9bd884 |
| children | 114b70461f96 |
line wrap: on
line diff
--- a/lisp/emulation/cua-rect.el Wed Apr 14 03:11:21 2010 +0300 +++ b/lisp/emulation/cua-rect.el Wed Apr 14 03:33:32 2010 +0300 @@ -1432,6 +1432,8 @@ (define-key cua--rectangle-keymap [remap beginning-of-buffer] 'cua-resize-rectangle-top) (define-key cua--rectangle-keymap [remap scroll-down] 'cua-resize-rectangle-page-up) (define-key cua--rectangle-keymap [remap scroll-up] 'cua-resize-rectangle-page-down) + (define-key cua--rectangle-keymap [remap scroll-down-command] 'cua-resize-rectangle-page-up) + (define-key cua--rectangle-keymap [remap scroll-up-command] 'cua-resize-rectangle-page-down) (define-key cua--rectangle-keymap [remap delete-backward-char] 'cua-delete-char-rectangle) (define-key cua--rectangle-keymap [remap backward-delete-char] 'cua-delete-char-rectangle)