mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(math-stack-value-offset): Replace variables c, wid and off with

Browse source 
math-svo-c, math-svo-wid and math-svo-off.
This commit is contained in:
Jay Belanger 2004-11-24 06:01:45 +00:00
parent 1c80b98b61
commit f0a35df4ea
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/calc/calc.el
View file

@ -3016,19 +3016,23 @@ See calc-keypad for details."
(setcar (cdr entry) (calc-count-lines s))
s))
(defun math-stack-value-offset (c)
;; The variables math-svo-c, math-svo-wid and math-svo-off are local
;; to math-stack-value-offset, but are used by math-stack-value-offset-fancy
;; in calccomp.el.
(defun math-stack-value-offset (math-svo-c)
(let* ((num (if calc-line-numbering 4 0))
(wid (calc-window-width))
off)
(math-svo-wid (calc-window-width))
math-svo-off)
(if calc-display-just
(progn
(calc-extensions)
(math-stack-value-offset-fancy))
(setq off (or calc-display-origin 0))
(setq math-svo-off (or calc-display-origin 0))
(when (integerp calc-line-breaking)
(setq wid calc-line-breaking)))
(cons (max (- off (length calc-left-label)) 0)
(+ wid num))))
(setq math-svo-wid calc-line-breaking)))
(cons (max (- math-svo-off (length calc-left-label)) 0)
(+ math-svo-wid num))))
(defun calc-count-lines (s)
(let ((pos 0)