Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
107783:3b312d7aa88e | 107784:45b05d993766 |
---|---|
871 (define-key esc-map [home] 'beginning-of-buffer-other-window) | 871 (define-key esc-map [home] 'beginning-of-buffer-other-window) |
872 (define-key global-map [left] 'backward-char) | 872 (define-key global-map [left] 'backward-char) |
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) |
881 (put 'scroll-left 'disabled t) | 881 (put 'scroll-left 'disabled t) |
882 (define-key global-map [C-next] 'scroll-left) | 882 (define-key global-map [C-next] 'scroll-left) |