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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c17ee5b12d5e2c2bfe6ab62dab85ef1438f4980d..3b177ac07bf2fb39143e5796122d991b37ba1988 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,25 @@
 2011-10-01  Chong Yidong  <cyd@stupidchicken.com>
 
+       * 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.
+
        * custom.el (custom-safe-themes, load-theme): Treat value of t for
        custom-safe-themes as special.
 

diff --git a/lisp/calc/calc-graph.el b/lisp/calc/calc-graph.el
index d5d8f0aaf35873b974d00dd685731dc779dc5e6d..4fd5045f54b6e17622cad10349090c5546e5b8c8 100644 (file)
--- a/lisp/calc/calc-graph.el
+++ b/lisp/calc/calc-graph.el
@@ -946,13 +946,13 @@ This \"dumb\" driver will be present in Gnuplot 3.0."
     (or calc-dumb-map
        (progn
          (setq calc-dumb-map (make-sparse-keymap))
-         (define-key calc-dumb-map "\n" 'scroll-up)
-         (define-key calc-dumb-map " " 'scroll-up)
-         (define-key calc-dumb-map "\177" 'scroll-down)
+         (define-key calc-dumb-map "\n" 'scroll-up-command)
+         (define-key calc-dumb-map " " 'scroll-up-command)
+         (define-key calc-dumb-map "\177" 'scroll-down-command)
          (define-key calc-dumb-map "<" 'scroll-left)
          (define-key calc-dumb-map ">" 'scroll-right)
-         (define-key calc-dumb-map "{" 'scroll-down)
-         (define-key calc-dumb-map "}" 'scroll-up)
+         (define-key calc-dumb-map "{" 'scroll-down-command)
+         (define-key calc-dumb-map "}" 'scroll-up-command)
          (define-key calc-dumb-map "q" 'exit-recursive-edit)
          (define-key calc-dumb-map "\C-c\C-c" 'exit-recursive-edit)))
     (use-local-map calc-dumb-map)

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 9ba8b27c693e08844e0587c18b7021c527a472e9..07944a6c16fd559c198e16a65f904e27cd529c68 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -442,8 +442,8 @@
     (set-keymap-parent map widget-keymap)
     (define-key map [remap self-insert-command] 'Custom-no-edit)
     (define-key map "\^m" 'Custom-newline)
-    (define-key map " " 'scroll-up)
-    (define-key map "\177" 'scroll-down)
+    (define-key map " " 'scroll-up-command)
+    (define-key map "\177" 'scroll-down-command)
     (define-key map "\C-c\C-c" 'Custom-set)
     (define-key map "\C-x\C-s" 'Custom-save)
     (define-key map "q" 'Custom-buffer-done)

diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el
index a906cf8516a76f2c1e567d5c18580a04b85bfe63..8ab974be574a1da503db8531d6ab3f70ddb0aa77 100644 (file)
--- a/lisp/ebuff-menu.el
+++ b/lisp/ebuff-menu.el
@@ -70,8 +70,8 @@
     (define-key map "\C-n" 'next-line)
     (define-key map "p" 'previous-line)
     (define-key map "n" 'next-line)
-    (define-key map "\C-v" 'scroll-up)
-    (define-key map "\ev" 'scroll-down)
+    (define-key map "\C-v" 'scroll-up-command)
+    (define-key map "\ev" 'scroll-down-command)
     (define-key map ">" 'scroll-right)
     (define-key map "<" 'scroll-left)
     (define-key map "\e\C-v" 'scroll-other-window)

diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el
index 5bab97416499b3ad60c407fbaa24ad21961c0a78..9bf108c8c38eebe335f34c89af22e639882404f5 100644 (file)
--- a/lisp/emulation/vi.el
+++ b/lisp/emulation/vi.el
@@ -142,7 +142,7 @@ command extensions.")
   (define-key vi-com-map "\C-s" 'vi-isearch-forward)  ; extension
   (define-key vi-com-map "\C-t" 'vi-transpose-objects) ; extension
   (define-key vi-com-map "\C-u" 'vi-scroll-up-window)
-  (define-key vi-com-map "\C-v" 'scroll-up) ; extension
+  (define-key vi-com-map "\C-v" 'scroll-up-command) ; extension
   (define-key vi-com-map "\C-w" 'vi-kill-region)   ; extension
   (define-key vi-com-map "\C-x" 'Control-X-prefix) ; extension
   (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 69f7b1d50ea0992a5db6d10cd31a0ee5663a59cf..3a205c7c4f034adf0094c04c0384cb6f2be8ba61 100644 (file)
--- 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)

diff --git a/lisp/epa.el b/lisp/epa.el
index 5164181454a4f9ec05f08d4a644b468841b5034b..229138bd4552eda98fa62a29a3344f5998b4296f 100644 (file)
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -214,8 +214,8 @@ You should bind this variable with `let', but do not set it globally.")
     (define-key keymap "g" 'revert-buffer)
     (define-key keymap "n" 'next-line)
     (define-key keymap "p" 'previous-line)
-    (define-key keymap " " 'scroll-up)
-    (define-key keymap [delete] 'scroll-down)
+    (define-key keymap " " 'scroll-up-command)
+    (define-key keymap [delete] 'scroll-down-command)
     (define-key keymap "q" 'epa-exit-buffer)
     (define-key keymap [menu-bar epa-key-list-mode] (cons "Keys" menu-map))
     (define-key menu-map [epa-key-list-unmark-key]

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 54de6310b5b12e081adfeb445333df8d9827f31d..770050efb08fa888a370f6de3726e717877f83a5 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1035,8 +1035,8 @@ The buffer is expected to be narrowed to just the header of the message."
     (define-key map "/"      'rmail-end-of-message)
     (define-key map "<"      'rmail-first-message)
     (define-key map ">"      'rmail-last-message)
-    (define-key map " "      'scroll-up)
-    (define-key map "\177"   'scroll-down)
+    (define-key map " "      'scroll-up-command)
+    (define-key map "\177"   'scroll-down-command)
     (define-key map "?"      'describe-mode)
     (define-key map "\C-c\C-s\C-d" 'rmail-sort-by-date)
     (define-key map "\C-c\C-s\C-s" 'rmail-sort-by-subject)

diff --git a/lisp/man.el b/lisp/man.el
index ed24e35f0eaacd89e895b52d007da4e42dcc2f9a..14fdac4e5dae82efd6c16fa50f1bccf35760083d 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -398,8 +398,8 @@ Otherwise, the value is whatever the function
     (suppress-keymap map)
     (set-keymap-parent map button-buffer-map)
 
-    (define-key map " "    'scroll-up)
-    (define-key map "\177" 'scroll-down)
+    (define-key map " "    'scroll-up-command)
+    (define-key map "\177" 'scroll-down-command)
     (define-key map "n"    'Man-next-section)
     (define-key map "p"    'Man-previous-section)
     (define-key map "\en"  'Man-next-manpage)

diff --git a/lisp/net/newst-plainview.el b/lisp/net/newst-plainview.el
index d1b042cad662b2e7acccb7a9f682b7699f706ad1..906044079cd2a334036eaa9729a75fed6167d903 100644 (file)
--- a/lisp/net/newst-plainview.el
+++ b/lisp/net/newst-plainview.el
@@ -427,7 +427,7 @@ images."
     (define-key map "sx" 'newsticker-show-extra)
     (define-key map "hx" 'newsticker-hide-extra)
 
-    (define-key map " "  'scroll-up)
+    (define-key map " "  'scroll-up-command)
     (define-key map "q"  'newsticker-close-buffer)
     (define-key map "p"  'newsticker-previous-item)
     (define-key map "P"  'newsticker-previous-new-item)

diff --git a/lisp/progmodes/cpp.el b/lisp/progmodes/cpp.el
index a8f01705e2d0093bcf8ea9b761295e3a6f95238a..e5bfda54728ea80edcb827332bcbfc7f94548a6b 100644 (file)
--- a/lisp/progmodes/cpp.el
+++ b/lisp/progmodes/cpp.el
@@ -419,8 +419,8 @@ A prefix arg suppresses display of that buffer."
     (suppress-keymap map)
     (define-key map [ down-mouse-2 ] 'cpp-push-button)
     (define-key map [ mouse-2 ] 'ignore)
-    (define-key map " " 'scroll-up)
-    (define-key map "\C-?" 'scroll-down)
+    (define-key map " " 'scroll-up-command)
+    (define-key map "\C-?" 'scroll-down-command)
     (define-key map [ delete ] 'scroll-down)
     (define-key map "\C-c\C-c" 'cpp-edit-apply)
     (define-key map "a" 'cpp-edit-apply)

diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index d31a46cc308651d0e2007b6f2def3b3bfa5602a6..dd7a9824af33621c746cbf0115c5ef2ab578dd99 100644 (file)
--- a/lisp/progmodes/ebrowse.el
+++ b/lisp/progmodes/ebrowse.el
@@ -1980,8 +1980,8 @@ COLLAPSE non-nil means collapse the branch."
     (define-key map "p" 'previous-line)
     (define-key map "n" 'next-line)
     (define-key map "v" 'ebrowse-electric-view-buffer)
-    (define-key map "\C-v" 'scroll-up)
-    (define-key map "\ev" 'scroll-down)
+    (define-key map "\C-v" 'scroll-up-command)
+    (define-key map "\ev" 'scroll-down-command)
     (define-key map "\e\C-v" 'scroll-other-window)
     (define-key map "\e>" 'end-of-buffer)
     (define-key map "\e<" 'beginning-of-buffer)
@@ -3929,8 +3929,8 @@ Prefix arg ARG says how much."
     (define-key map "p" 'previous-line)
     (define-key map "n" 'next-line)
     (define-key map "v" 'ebrowse-electric-view-position)
-    (define-key map "\C-v" 'scroll-up)
-    (define-key map "\ev" 'scroll-down)
+    (define-key map "\C-v" 'scroll-up-command)
+    (define-key map "\ev" 'scroll-down-command)
     (define-key map "\e\C-v" 'scroll-other-window)
     (define-key map "\e>" 'end-of-buffer)
     (define-key map "\e<" 'beginning-of-buffer)

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 2c68a29dd0094920c87d576e7dde109519ba5729..ff192d5678eef2d7cb9141ff40d64940b31705da 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -245,8 +245,8 @@ See `compilation-error-screen-columns'"
 (defvar grep-mode-map
   (let ((map (make-sparse-keymap)))
     (set-keymap-parent map compilation-minor-mode-map)
-    (define-key map " " 'scroll-up)
-    (define-key map "\^?" 'scroll-down)
+    (define-key map " " 'scroll-up-command)
+    (define-key map "\^?" 'scroll-down-command)
     (define-key map "\C-c\C-f" 'next-error-follow-minor-mode)
 
     (define-key map "\r" 'compile-goto-error)  ;; ?

diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el
index 05fcedde048de8951e2508642c37a1c6343bb120..8d8966ee1595d8a74a3f409619339c54b2394c4b 100644 (file)
--- a/lisp/progmodes/idlw-help.el
+++ b/lisp/progmodes/idlw-help.el
@@ -226,8 +226,8 @@ support."
     (define-key map "\C-m" (lambda (arg)
                              (interactive "p")
                              (scroll-up arg)))
-    (define-key map " " 'scroll-up)
-    (define-key map [delete] 'scroll-down)
+    (define-key map " " 'scroll-up-command)
+    (define-key map [delete] 'scroll-down-command)
     (define-key map "h" 'idlwave-help-find-header)
     (define-key map "H" 'idlwave-help-find-first-header)
     (define-key map "." 'idlwave-help-toggle-header-match-and-def)

diff --git a/lisp/simple.el b/lisp/simple.el
index 1ab90792bfa45a0c609dd64e34e15e37498c6fdb..c81385680bf7eb399bd4a1d0bb115dcb1f1e7984 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -357,8 +357,8 @@ Other major modes are defined by comparison with this one."
   (let ((map (make-sparse-keymap)))
     (suppress-keymap map)
     (define-key map "q" 'quit-window)
-    (define-key map " " 'scroll-up)
-    (define-key map "\C-?" 'scroll-down)
+    (define-key map " " 'scroll-up-command)
+    (define-key map "\C-?" 'scroll-down-command)
     (define-key map "?" 'describe-mode)
     (define-key map "h" 'describe-mode)
     (define-key map ">" 'end-of-buffer)

diff --git a/lisp/startup.el b/lisp/startup.el
index 16cf41506bdd482751320642620aeedc27b57264..842548577c5aa68bdff80025002c1a48c0343c87 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1450,8 +1450,8 @@ Each element in the list should be a list of strings or pairs
   (let ((map (make-sparse-keymap)))
     (suppress-keymap map)
     (set-keymap-parent map button-buffer-map)
-    (define-key map "\C-?" 'scroll-down)
-    (define-key map " " 'scroll-up)
+    (define-key map "\C-?" 'scroll-down-command)
+    (define-key map " " 'scroll-up-command)
     (define-key map "q" 'exit-splash-screen)
     map)
   "Keymap for splash screen buffer.")

diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 447d7fd2533616fc4aec8e638f78fccfa548df25..646b65abc6005e59572cd05ecd055589c359bfd1 100644 (file)
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -150,8 +150,8 @@ The properties returned may include `top', `left', `height', and `width'."
 (define-key global-map [end] 'end-of-buffer)
 (define-key global-map [kp-home] 'beginning-of-buffer)
 (define-key global-map [kp-end] 'end-of-buffer)
-(define-key global-map [kp-prior] 'scroll-down)
-(define-key global-map [kp-next] 'scroll-up)
+(define-key global-map [kp-prior] 'scroll-down-command)
+(define-key global-map [kp-next] 'scroll-up-command)
 
 ;; Allow shift-clicks to work similarly to under Nextstep.
 (define-key global-map [S-mouse-1] 'mouse-save-then-kill)

diff --git a/lisp/term/sun.el b/lisp/term/sun.el
index d375656569c757c493be6c4d1ecdc44e8f76854c..ab7ca8bf5a817af681464d57fc8afdfb0b1b0613 100644 (file)
--- a/lisp/term/sun.el
+++ b/lisp/term/sun.el
@@ -133,10 +133,10 @@
   (global-set-key [r3] 'backward-page)
   (global-set-key [r6] 'forward-page)
   (global-set-key [r7] 'beginning-of-buffer)
-  (global-set-key [r9] 'scroll-down)
+  (global-set-key [r9] 'scroll-down-command)
   (global-set-key [r11]        'recenter)
   (global-set-key [r13]        'end-of-buffer)
-  (global-set-key [r15]        'scroll-up)
+  (global-set-key [r15]        'scroll-up-command)
   (global-set-key [redo]       'redraw-display) ;FIXME: collides with default.
   (global-set-key [props]      'list-buffers)
   (global-set-key [put]        'sun-select-region)