Mercurial > emacs

changeset 43568:d71670d5afa3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-scroll-left): Call scroll-left interactively, so they do something. (calc-scroll-right): Ditto.
author Colin Walters <walters@gnu.org>
date Tue, 26 Feb 2002 19:54:21 +0000
parents 26cb2bd7070b
children 6a87cb44b5d6
files lisp/calc/calc-ext.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-ext.el	Tue Feb 26 19:53:56 2002 +0000
+++ b/lisp/calc/calc-ext.el	Tue Feb 26 19:54:21 2002 +0000
@@ -1303,14 +1303,16 @@
 		 (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")