aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/bindings.el
diff options
context:
space:
mode:
authorJuri Linkov2010-04-06 02:38:53 +0300
committerJuri Linkov2010-04-06 02:38:53 +0300
commit79ce172a464f2d5cced69f97fd86c4e03a0876a9 (patch)
treef7347b58dd13fcc423f8b006bb39fe2219892393 /lisp/bindings.el
parent6460e5342cb08578eb2fd22b086373bbc12a11d0 (diff)
downloademacs-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.el4
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)