[Emacs-diffs] Changes to emacs/lisp/calc/calc.el

[Miles Bader]

Index: emacs/lisp/calc/calc.el
diff -c emacs/lisp/calc/calc.el:1.12 emacs/lisp/calc/calc.el:1.13
*** emacs/lisp/calc/calc.el:1.12        Sun Apr 14 01:50:05 2002
--- emacs/lisp/calc/calc.el     Wed May 29 21:04:15 2002
***************
*** 249,254 ****
--- 249,257 ----
  ;; Entries are 3-lists:  Formula, Height (in lines), Selection (or nil).
  (defvar calc-stack '((top-of-stack 1 nil)))
  
+ (defvar calc-show-banner t
+   "*If non-nil, show a friendly greeting above the stack.")
+ 
  ;; Index into calc-stack of "top" of stack.
  ;; This is 1 unless calc-truncate-stack has been used.
  ;;(defvar calc-stack-top 1)
***************
*** 581,587 ****
                               (calc-gnuplot-geometry nil)
                               (calc-graph-default-resolution 15)
                               (calc-graph-default-resolution-3d 5)
!                              (calc-invocation-macro nil)))
  
  (defconst calc-local-var-list '(calc-stack
                                calc-stack-top
--- 584,591 ----
                               (calc-gnuplot-geometry nil)
                               (calc-graph-default-resolution 15)
                               (calc-graph-default-resolution-3d 5)
!                              (calc-invocation-macro nil)
!                              (calc-show-banner t)))
  
  (defconst calc-local-var-list '(calc-stack
                                calc-stack-top
***************
*** 1702,1711 ****
         (setq calc-any-selections nil
               calc-any-evaltos nil)
         (erase-buffer)
!        (insert "--- Emacs Calculator Mode ---\n")
         (while thing
           (goto-char (point-min))
!          (forward-line 1)
           (insert (math-format-stack-value (car thing)) "\n")
           (setq thing (cdr thing)))
         (calc-renumber-stack)
--- 1706,1717 ----
         (setq calc-any-selections nil
               calc-any-evaltos nil)
         (erase-buffer)
!        (when calc-show-banner
!          (insert "--- Emacs Calculator Mode ---\n"))
         (while thing
           (goto-char (point-min))
!          (when calc-show-banner
!            (forward-line 1))
           (insert (math-format-stack-value (car thing)) "\n")
           (setq thing (cdr thing)))
         (calc-renumber-stack)