diff options
| author | Juri Linkov | 2010-04-06 02:38:53 +0300 |
|---|---|---|
| committer | Juri Linkov | 2010-04-06 02:38:53 +0300 |
| commit | 79ce172a464f2d5cced69f97fd86c4e03a0876a9 (patch) | |
| tree | f7347b58dd13fcc423f8b006bb39fe2219892393 /lisp/bindings.el | |
| parent | 6460e5342cb08578eb2fd22b086373bbc12a11d0 (diff) | |
| download | emacs-79ce172a464f2d5cced69f97fd86c4e03a0876a9.tar.gz emacs-79ce172a464f2d5cced69f97fd86c4e03a0876a9.zip | |
Scrolling commands which does not signal errors at top/bottom.
http://lists.gnu.org/archive/html/emacs-devel/2010-03/msg01452.html
* simple.el (scroll-up-command, scroll-down-command): New commands.
Put property isearch-scroll=t on them.
* bindings.el (global-map): Rebind [prior] from `scroll-down' to
`scroll-down-command' and [next] from `scroll-up' to
`scroll-up-command'.
* emulation/cua-base.el: Put property CUA=move on
`scroll-up-command' and `scroll-down-command'.
(cua--init-keymaps): Remap `scroll-up-command' to `cua-scroll-up'
and `scroll-down-command' to `cua-scroll-down'.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 37ca3b86055..a7f6643b2db 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el | |||
| @@ -873,8 +873,8 @@ or \\[semantic-mode]"))))) | |||
| 873 | (define-key global-map [up] 'previous-line) | 873 | (define-key global-map [up] 'previous-line) |
| 874 | (define-key global-map [right] 'forward-char) | 874 | (define-key global-map [right] 'forward-char) |
| 875 | (define-key global-map [down] 'next-line) | 875 | (define-key global-map [down] 'next-line) |
| 876 | (define-key global-map [prior] 'scroll-down) | 876 | (define-key global-map [prior] 'scroll-down-command) |
| 877 | (define-key global-map [next] 'scroll-up) | 877 | (define-key global-map [next] 'scroll-up-command) |
| 878 | (define-key global-map [C-up] 'backward-paragraph) | 878 | (define-key global-map [C-up] 'backward-paragraph) |
| 879 | (define-key global-map [C-down] 'forward-paragraph) | 879 | (define-key global-map [C-down] 'forward-paragraph) |
| 880 | (define-key global-map [C-prior] 'scroll-right) | 880 | (define-key global-map [C-prior] 'scroll-right) |