Mercurial > emacs
diff lisp/calc/calc-ext.el @ 43568:d71670d5afa3
(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 | 0f4506820432 |
children | eb535b77722f |
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")