diff options
author | Chong Yidong <cyd@stupidchicken.com> | 2011-10-01 16:32:01 -0400 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2011-10-01 16:32:01 -0400 |
commit | ce3cefcca3227944d27d75e7de0f1e4f4b6d11a6 (patch) | |
tree | 7cffa923342b0b352d3e804d81594aa5ce63f1ba /lisp/emulation/ws-mode.el | |
parent | b6bd159922608fa474026837771d63bf7eadcf97 (diff) | |
download | emacs-ce3cefcca3227944d27d75e7de0f1e4f4b6d11a6.tar.gz |
Change scroll-up/down bindings to Emacs 24's scroll-*-command.
* cus-edit.el (custom-mode-map):
* epa.el (epa-key-list-mode-map):
* man.el (Man-mode-map):
* startup.el (splash-screen-keymap):
* simple.el (special-mode-map): Use scroll-up-command and
scroll-down-command.
* progmodes/idlw-help.el (idlwave-help-mode-map):
* progmodes/ebrowse.el (ebrowse-electric-position-mode-map):
* net/newst-plainview.el (newsticker-mode-map):
* emulation/ws-mode.el (wordstar-mode-map):
* emulation/vi.el (vi-com-map):
* calc/calc-graph.el (calc-graph-show-dumb):
* term/sun.el (terminal-init-sun):
* term/ns-win.el (global-map):
* progmodes/grep.el (grep-mode-map):
* progmodes/ebrowse.el (ebrowse-electric-list-mode-map):
* mail/rmail.el (rmail-mode-map):
* progmodes/cpp.el (cpp-edit-mode-map): Likewise.
Diffstat (limited to 'lisp/emulation/ws-mode.el')
-rw-r--r-- | lisp/emulation/ws-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el index 69f7b1d50ea..3a205c7c4f0 100644 --- a/lisp/emulation/ws-mode.el +++ b/lisp/emulation/ws-mode.el @@ -143,11 +143,11 @@ map) "") -(defvar wordstar-mode-map +(defvar wordstar-mode-map (let ((map (make-keymap))) (define-key map "\C-a" 'backward-word) (define-key map "\C-b" 'fill-paragraph) - (define-key map "\C-c" 'scroll-up) + (define-key map "\C-c" 'scroll-up-command) (define-key map "\C-d" 'forward-char) (define-key map "\C-e" 'previous-line) (define-key map "\C-f" 'forward-word) @@ -161,7 +161,7 @@ (define-key map "\C-o" wordstar-C-o-map) (define-key map "\C-p" 'quoted-insert) (define-key map "\C-q" wordstar-C-q-map) - (define-key map "\C-r" 'scroll-down) + (define-key map "\C-r" 'scroll-down-command) (define-key map "\C-s" 'backward-char) (define-key map "\C-t" 'kill-word) (define-key map "\C-u" 'keyboard-quit) |