From: Colin Walters <walters@gnu.org>
Date: Tue, 26 Feb 2002 19:54:21 +0000 (+0000)
Subject: (calc-scroll-left): Call scroll-left interactively, so they do something.
X-Git-Tag: ttn-vms-21-2-B4~16450
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=960e24e7bd264e715061b5058df230d255d0a41d;p=emacs.git

(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 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")