Commit 960e24e7 authored by Colin Walters's avatar Colin Walters
Browse files

(calc-scroll-left): Call scroll-left interactively, so they do something.

(calc-scroll-right): Ditto.
parent 10cf9a43
......@@ -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")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment