diff options
| author | Juri Linkov <[email protected]> | 2010-04-06 02:38:53 +0300 |
|---|---|---|
| committer | Juri Linkov <[email protected]> | 2010-04-06 02:38:53 +0300 |
| commit | 79ce172a464f2d5cced69f97fd86c4e03a0876a9 (patch) | |
| tree | f7347b58dd13fcc423f8b006bb39fe2219892393 /lisp/bindings.el | |
| parent | 6460e5342cb08578eb2fd22b086373bbc12a11d0 (diff) | |
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 37ca3b8605..a7f6643b2d 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -873,8 +873,8 @@ or \\[semantic-mode]"))))) (define-key global-map [up] 'previous-line) (define-key global-map [right] 'forward-char) (define-key global-map [down] 'next-line) -(define-key global-map [prior] 'scroll-down) -(define-key global-map [next] 'scroll-up) +(define-key global-map [prior] 'scroll-down-command) +(define-key global-map [next] 'scroll-up-command) (define-key global-map [C-up] 'backward-paragraph) (define-key global-map [C-down] 'forward-paragraph) (define-key global-map [C-prior] 'scroll-right) |