Mercurial > emacs
diff lisp/forms.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 | 417b1e4d63cd |
line wrap: on
line diff
--- a/lisp/forms.el Wed Apr 14 03:11:21 2010 +0300 +++ b/lisp/forms.el Wed Apr 14 03:33:32 2010 +0300 @@ -1407,7 +1407,9 @@ (if forms-forms-scroll (progn (local-set-key [remap scroll-up] 'forms-next-record) - (local-set-key [remap scroll-down] 'forms-prev-record))) + (local-set-key [remap scroll-down] 'forms-prev-record) + (local-set-key [remap scroll-up-command] 'forms-next-record) + (local-set-key [remap scroll-down-command] 'forms-prev-record))) ;; ;; beginning-of-buffer -> forms-first-record ;; end-of-buffer -> forms-end-record