diff options
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") |