diff options
| author | Colin Walters <walters@gnu.org> | 2002-02-26 19:54:21 +0000 |
|---|---|---|
| committer | Colin Walters <walters@gnu.org> | 2002-02-26 19:54:21 +0000 |
| commit | 960e24e7bd264e715061b5058df230d255d0a41d (patch) | |
| tree | 023e29c4c72743a5deaa823a268984d406b89ea7 /lisp/calc | |
| parent | 10cf9a4305550c1eb473718c256b8e6544aaea43 (diff) | |
| download | emacs-960e24e7bd264e715061b5058df230d255d0a41d.tar.gz | |
(calc-scroll-left): Call scroll-left interactively, so they do something.
(calc-scroll-right): Ditto.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-ext.el | 8 |
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") |