Mercurial > emacs
diff lisp/bindings.el @ 107784:45b05d993766
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'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 06 Apr 2010 02:38:53 +0300 |
| parents | 1d1d5d9bd884 |
| children | 56d11bda8235 |
line wrap: on
line diff
--- a/lisp/bindings.el Mon Apr 05 22:05:47 2010 +0200 +++ b/lisp/bindings.el Tue Apr 06 02:38:53 2010 +0300 @@ -873,8 +873,8 @@ (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)