martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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")