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.

2 files changed, 8 insertions, 2 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index e4130a64838..82484b105be 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,11 @@
 2010-04-14  Juri Linkov  <juri@jurta.org>
 
+        * 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'.
+
+2010-04-14  Juri Linkov  <juri@jurta.org>
+
         * window.c (Vscroll_preserve_screen_position_commands): New variable
         with the default value as the list of Qscroll_down and Qscroll_up.
         (window_scroll_pixel_based, window_scroll_line_based): Search the
diff --git a/src/window.c b/src/window.c
index 2757b98ddd9..b9683fbbca8 100644
--- a/src/window.c
+++ b/src/window.c
@@ -7391,9 +7391,9 @@ keys_of_window ()
   initial_define_key (control_x_map, '<', "scroll-left");
   initial_define_key (control_x_map, '>', "scroll-right");
 
-  initial_define_key (global_map, Ctl ('V'), "scroll-up");
+  initial_define_key (global_map, Ctl ('V'), "scroll-up-command");
   initial_define_key (meta_map, Ctl ('V'), "scroll-other-window");
-  initial_define_key (meta_map, 'v', "scroll-down");
+  initial_define_key (meta_map, 'v', "scroll-down-command");
 }
 
 /* arch-tag: 90a9c576-0590-48f1-a5f1-6c96a0452d9f