# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1022720721 0
# Node ID eb535b77722f63ae9ad3bcda7251b8be82585b19
# Parent  73f6b3b88ae9fa8e5b9b08f9b694f95d48328b9c
(calc-init-extensions): Add binding for `d@'.
(calc-toggle-banner): New function.

diff -r 73f6b3b88ae9 -r eb535b77722f lisp/calc/calc-ext.el
--- a/lisp/calc/calc-ext.el	Thu May 30 01:04:15 2002 +0000
+++ b/lisp/calc/calc-ext.el	Thu May 30 01:05:21 2002 +0000
@@ -1,6 +1,6 @@
 ;;; calc-ext.el --- various extension functions for Calc
 
-;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002 Free Software Foundation, Inc.
 
 ;; Author: David Gillespie <daveg@synaptics.com>
 ;; Maintainer: Colin Walters <walters@debian.org>
@@ -250,6 +250,7 @@
   (define-key calc-mode-map "d'" 'calc-display-raw)
   (define-key calc-mode-map "d " 'calc-refresh)
   (define-key calc-mode-map "d\r" 'calc-refresh-top)
+  (define-key calc-mode-map "d@" 'calc-toggle-banner)
 
   (define-key calc-mode-map "f" nil)
   (define-key calc-mode-map "f?" 'calc-f-prefix-help)
@@ -1489,6 +1490,12 @@
       (if calc-embedded-info (calc-embedded-modes-change var))
       (symbol-value (car var)))))
 
+(defun calc-toggle-banner ()
+  "Toggle display of the friendly greeting calc normally shows above the stack."
+  (interactive)
+  (setq calc-show-banner (not calc-show-banner))
+  (calc-refresh))
+
 (defun calc-refresh-top (n)
   (interactive "p")
   (calc-wrapper
@@ -1534,7 +1541,6 @@
   (and calc-embedded-active which-var
        (calc-embedded-var-change which-var)))
 
-
 (defun calc-push (&rest vals)
   (calc-push-list vals))