summaryrefslogtreecommitdiff
path: root/lisp/emulation/ws-mode.el
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2011-10-01 16:32:01 -0400
committerChong Yidong <cyd@stupidchicken.com>2011-10-01 16:32:01 -0400
commitce3cefcca3227944d27d75e7de0f1e4f4b6d11a6 (patch)
tree7cffa923342b0b352d3e804d81594aa5ce63f1ba /lisp/emulation/ws-mode.el
parentb6bd159922608fa474026837771d63bf7eadcf97 (diff)
downloademacs-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.el6
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)