(calc-show-banner): New variable.

(calc-refresh): Only show banner if `calc-show-banner' is non-nil.
(calc-mode-var-list): Add `calc-show-banner'.

1 files changed, 9 insertions, 3 deletions

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 290ac5c963c..44889159abe 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -249,6 +249,9 @@ This can safely be nil as long as the Calc files are on the load-path.")
 ;; 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,7 +584,8 @@ This can safely be nil as long as the Calc files are on the load-path.")
                                (calc-gnuplot-geometry nil)
                                (calc-graph-default-resolution 15)
                                (calc-graph-default-resolution-3d 5)
-                               (calc-invocation-macro nil)))
+                               (calc-invocation-macro nil)
+                               (calc-show-banner t)))
 
 (defconst calc-local-var-list '(calc-stack
                                 calc-stack-top
@@ -1702,10 +1706,12 @@ See calc-keypad for details."
          (setq calc-any-selections nil
                calc-any-evaltos nil)
          (erase-buffer)
-         (insert "--- Emacs Calculator Mode ---\n")
+         (when calc-show-banner
+           (insert "--- Emacs Calculator Mode ---\n"))
          (while thing
            (goto-char (point-min))
-           (forward-line 1)
+           (when calc-show-banner
+             (forward-line 1))
            (insert (math-format-stack-value (car thing)) "\n")
            (setq thing (cdr thing)))
          (calc-renumber-stack)