(calc-scroll-left): Call scroll-left interactively, so they do something.

(calc-scroll-right): Ditto.

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 8474f61fc0e2ad44fbe4bbf84e499da1d882e098..e26906bd608d043f13a8ddf0926ad116cc703e22 100644 (file)
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -1303,14 +1303,16 @@ calc-kill calc-kill-region calc-yank))))
                 (select-window swin)))))))
   (message "(Calculator reset)"))
 
-
+;; What a pain; scroll-left behaves differently when called non-interactively.
 (defun calc-scroll-left (n)
   (interactive "P")
-  (scroll-left (or n (/ (window-width) 2))))
+  (setq prefix-arg (or n (/ (window-width) 2)))
+  (call-interactively #'scroll-left))
 
 (defun calc-scroll-right (n)
   (interactive "P")
-  (scroll-right (or n (/ (window-width) 2))))
+  (setq prefix-arg (or n (/ (window-width) 2)))
+  (call-interactively #'scroll-right))
 
 (defun calc-scroll-up (n)
   (interactive "P")