Bind `C-v' to `scroll-up-command' and `M-v' to `scroll-down-command'.

[bpt/emacs.git] / lisp / forms.el

diff --git a/lisp/forms.el b/lisp/forms.el
index acb86dc..50f7ac9 100644 (file)
--- 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