diff options
| author | Chong Yidong | 2011-10-01 16:32:01 -0400 |
|---|---|---|
| committer | Chong Yidong | 2011-10-01 16:32:01 -0400 |
| commit | ce3cefcca3227944d27d75e7de0f1e4f4b6d11a6 (patch) | |
| tree | 7cffa923342b0b352d3e804d81594aa5ce63f1ba /lisp/emulation | |
| parent | b6bd159922608fa474026837771d63bf7eadcf97 (diff) | |
| download | emacs-ce3cefcca3227944d27d75e7de0f1e4f4b6d11a6.tar.gz emacs-ce3cefcca3227944d27d75e7de0f1e4f4b6d11a6.zip | |
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')
| -rw-r--r-- | lisp/emulation/vi.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/ws-mode.el | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el index 5bab9741649..9bf108c8c38 100644 --- a/lisp/emulation/vi.el +++ b/lisp/emulation/vi.el | |||
| @@ -142,7 +142,7 @@ command extensions.") | |||
| 142 | (define-key vi-com-map "\C-s" 'vi-isearch-forward) ; extension | 142 | (define-key vi-com-map "\C-s" 'vi-isearch-forward) ; extension |
| 143 | (define-key vi-com-map "\C-t" 'vi-transpose-objects) ; extension | 143 | (define-key vi-com-map "\C-t" 'vi-transpose-objects) ; extension |
| 144 | (define-key vi-com-map "\C-u" 'vi-scroll-up-window) | 144 | (define-key vi-com-map "\C-u" 'vi-scroll-up-window) |
| 145 | (define-key vi-com-map "\C-v" 'scroll-up) ; extension | 145 | (define-key vi-com-map "\C-v" 'scroll-up-command) ; extension |
| 146 | (define-key vi-com-map "\C-w" 'vi-kill-region) ; extension | 146 | (define-key vi-com-map "\C-w" 'vi-kill-region) ; extension |
| 147 | (define-key vi-com-map "\C-x" 'Control-X-prefix) ; extension | 147 | (define-key vi-com-map "\C-x" 'Control-X-prefix) ; extension |
| 148 | (define-key vi-com-map "\C-y" 'vi-expose-line-above) | 148 | (define-key vi-com-map "\C-y" 'vi-expose-line-above) |
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 @@ | |||
| 143 | map) | 143 | map) |
| 144 | "") | 144 | "") |
| 145 | 145 | ||
| 146 | (defvar wordstar-mode-map | 146 | (defvar wordstar-mode-map |
| 147 | (let ((map (make-keymap))) | 147 | (let ((map (make-keymap))) |
| 148 | (define-key map "\C-a" 'backward-word) | 148 | (define-key map "\C-a" 'backward-word) |
| 149 | (define-key map "\C-b" 'fill-paragraph) | 149 | (define-key map "\C-b" 'fill-paragraph) |
| 150 | (define-key map "\C-c" 'scroll-up) | 150 | (define-key map "\C-c" 'scroll-up-command) |
| 151 | (define-key map "\C-d" 'forward-char) | 151 | (define-key map "\C-d" 'forward-char) |
| 152 | (define-key map "\C-e" 'previous-line) | 152 | (define-key map "\C-e" 'previous-line) |
| 153 | (define-key map "\C-f" 'forward-word) | 153 | (define-key map "\C-f" 'forward-word) |
| @@ -161,7 +161,7 @@ | |||
| 161 | (define-key map "\C-o" wordstar-C-o-map) | 161 | (define-key map "\C-o" wordstar-C-o-map) |
| 162 | (define-key map "\C-p" 'quoted-insert) | 162 | (define-key map "\C-p" 'quoted-insert) |
| 163 | (define-key map "\C-q" wordstar-C-q-map) | 163 | (define-key map "\C-q" wordstar-C-q-map) |
| 164 | (define-key map "\C-r" 'scroll-down) | 164 | (define-key map "\C-r" 'scroll-down-command) |
| 165 | (define-key map "\C-s" 'backward-char) | 165 | (define-key map "\C-s" 'backward-char) |
| 166 | (define-key map "\C-t" 'kill-word) | 166 | (define-key map "\C-t" 'kill-word) |
| 167 | (define-key map "\C-u" 'keyboard-quit) | 167 | (define-key map "\C-u" 'keyboard-quit) |