Change scroll-up/down bindings to Emacs 24's scroll-*-command.

[gnu-emacs] / lisp / calc / calc-graph.el

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)