summaryrefslogtreecommitdiff
path: root/lisp/forms.el
diff options
context:
space:
mode:
authorJuri Linkov <juri@jurta.org>2010-04-14 03:33:32 +0300
committerJuri Linkov <juri@jurta.org>2010-04-14 03:33:32 +0300
commit3212974649ca9415a3a4a5197a169a0160a6b36f (patch)
treec4190e720ab70aa0950e0193c7a1d5fb7c3032cb /lisp/forms.el
parent9013a7f82ede2a309498ae62ac22dce4791b3f4a (diff)
downloademacs-3212974649ca9415a3a4a5197a169a0160a6b36f.tar.gz
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.
Diffstat (limited to 'lisp/forms.el')
-rw-r--r--lisp/forms.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/forms.el b/lisp/forms.el
index acb86dcc194..50f7ac9f506 100644
--- a/lisp/forms.el
+++ b/lisp/forms.el
@@ -1407,7 +1407,9 @@ Commands: Equivalent keys in read-only mode:
(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