From 3212974649ca9415a3a4a5197a169a0160a6b36f Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 14 Apr 2010 03:33:32 +0300 Subject: [PATCH] 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. --- lisp/ChangeLog | 11 +++++++++++ lisp/emulation/cua-rect.el | 2 ++ lisp/forms.el | 4 +++- lisp/image-mode.el | 2 ++ lisp/tutorial.el | 4 ++-- src/ChangeLog | 6 ++++++ src/window.c | 4 ++-- 7 files changed, 28 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8baac73bd9..01bfbf5543 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2010-04-14 Juri Linkov + + * 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. + 2010-04-14 Juri Linkov * mwheel.el (scroll-preserve-screen-position-commands): diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index 4398b5aa1a..4ac8ce58b3 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el @@ -1432,6 +1432,8 @@ With prefix arg, indent to that column." (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) diff --git a/lisp/forms.el b/lisp/forms.el index acb86dcc19..50f7ac9f50 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 diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 6169fa4cb7..cd292a8fa3 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el @@ -302,6 +302,8 @@ This variable is used to display the current image type in the mode line.") (define-key map [remap next-line] 'image-next-line) (define-key map [remap scroll-up] 'image-scroll-up) (define-key map [remap scroll-down] 'image-scroll-down) + (define-key map [remap scroll-up-command] 'image-scroll-up) + (define-key map [remap scroll-down-command] 'image-scroll-down) (define-key map [remap move-beginning-of-line] 'image-bol) (define-key map [remap move-end-of-line] 'image-eol) (define-key map [remap beginning-of-buffer] 'image-bob) diff --git a/lisp/tutorial.el b/lisp/tutorial.el index de7f7ab4a3..0ac315ac6d 100644 --- a/lisp/tutorial.el +++ b/lisp/tutorial.el @@ -218,8 +218,8 @@ LEFT and RIGHT are the elements to compare." (save-buffers-kill-terminal [?\C-x ?\C-c]) ;; * SUMMARY - (scroll-up [?\C-v]) - (scroll-down [?\M-v]) + (scroll-up-command [?\C-v]) + (scroll-down-command [?\M-v]) (recenter-top-bottom [?\C-l]) ;; * BASIC CURSOR CONTROL diff --git a/src/ChangeLog b/src/ChangeLog index e4130a6483..82484b105b 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2010-04-14 Juri Linkov + + * 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 * window.c (Vscroll_preserve_screen_position_commands): New variable diff --git a/src/window.c b/src/window.c index 2757b98ddd..b9683fbbca 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 -- 2.20.1