/[emacs]/emacs/lisp/calc/calc.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by walters, Sun Apr 14 05:50:05 2002 UTC revision 1.13 by miles, Thu May 30 01:04:15 2002 UTC
# Line 249  This can safely be nil as long as the Ca Line 249  This can safely be nil as long as the Ca
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)
# Line 581  This can safely be nil as long as the Ca Line 584  This can safely be nil as long as the Ca
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
# Line 1702  See calc-keypad for details." Line 1706  See calc-keypad for details."
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)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26