mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-08 08:43:52 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(calc-scroll-right): Ditto.
This commit is contained in:
Colin Walters 2002-02-26 19:54:21 +00:00
parent 10cf9a4305
commit 960e24e7bd
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/calc/calc-ext.el
View file

@ -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")