From 960e24e7bd264e715061b5058df230d255d0a41d Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Tue, 26 Feb 2002 19:54:21 +0000 Subject: [PATCH] (calc-scroll-left): Call scroll-left interactively, so they do something. (calc-scroll-right): Ditto. --- lisp/calc/calc-ext.el | 8 +++++--- 1 file 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") -- 2.39.2