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

(calc-scroll-right): Ditto.

1 files changed, 5 insertions, 3 deletions

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 8474f61fc0e..e26906bd608 100644
--- 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")