X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/412f24b9ddf1e07022f8c5fe05f0717f130c4c02..ddce73d32fa3e62e022842e3bbdc0aa83bb358cc:/lisp/calc/calc-graph.el?ds=sidebyside

diff --git a/lisp/calc/calc-graph.el b/lisp/calc/calc-graph.el
index d5d8f0aaf3..38d75e9802 100644
--- a/lisp/calc/calc-graph.el
+++ b/lisp/calc/calc-graph.el
@@ -1,6 +1,6 @@
 ;;; calc-graph.el --- graph output functions for Calc
 
-;; Copyright (C) 1990-1993, 2001-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1990-1993, 2001-2014 Free Software Foundation, Inc.
 
 ;; Author: David Gillespie <daveg@synaptics.com>
 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>
@@ -946,13 +946,14 @@ 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 [?\S-\ ] 'scroll-down-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)