249 |
;; Entries are 3-lists: Formula, Height (in lines), Selection (or nil). |
;; Entries are 3-lists: Formula, Height (in lines), Selection (or nil). |
250 |
(defvar calc-stack '((top-of-stack 1 nil))) |
(defvar calc-stack '((top-of-stack 1 nil))) |
251 |
|
|
252 |
|
(defvar calc-show-banner t |
253 |
|
"*If non-nil, show a friendly greeting above the stack.") |
254 |
|
|
255 |
;; Index into calc-stack of "top" of stack. |
;; Index into calc-stack of "top" of stack. |
256 |
;; This is 1 unless calc-truncate-stack has been used. |
;; This is 1 unless calc-truncate-stack has been used. |
257 |
;;(defvar calc-stack-top 1) |
;;(defvar calc-stack-top 1) |
584 |
(calc-gnuplot-geometry nil) |
(calc-gnuplot-geometry nil) |
585 |
(calc-graph-default-resolution 15) |
(calc-graph-default-resolution 15) |
586 |
(calc-graph-default-resolution-3d 5) |
(calc-graph-default-resolution-3d 5) |
587 |
(calc-invocation-macro nil))) |
(calc-invocation-macro nil) |
588 |
|
(calc-show-banner t))) |
589 |
|
|
590 |
(defconst calc-local-var-list '(calc-stack |
(defconst calc-local-var-list '(calc-stack |
591 |
calc-stack-top |
calc-stack-top |
1706 |
(setq calc-any-selections nil |
(setq calc-any-selections nil |
1707 |
calc-any-evaltos nil) |
calc-any-evaltos nil) |
1708 |
(erase-buffer) |
(erase-buffer) |
1709 |
(insert "--- Emacs Calculator Mode ---\n") |
(when calc-show-banner |
1710 |
|
(insert "--- Emacs Calculator Mode ---\n")) |
1711 |
(while thing |
(while thing |
1712 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1713 |
(forward-line 1) |
(when calc-show-banner |
1714 |
|
(forward-line 1)) |
1715 |
(insert (math-format-stack-value (car thing)) "\n") |
(insert (math-format-stack-value (car thing)) "\n") |
1716 |
(setq thing (cdr thing))) |
(setq thing (cdr thing))) |
1717 |
(calc-renumber-stack) |
(calc-renumber-stack) |