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

[Miles Bader]

Index: emacs/lisp/calc/calc-ext.el
diff -c emacs/lisp/calc/calc-ext.el:1.9 emacs/lisp/calc/calc-ext.el:1.10
*** emacs/lisp/calc/calc-ext.el:1.9     Tue Feb 26 14:54:21 2002
--- emacs/lisp/calc/calc-ext.el Wed May 29 21:05:21 2002
***************
*** 1,6 ****
  ;;; calc-ext.el --- various extension functions for Calc
  
! ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
  
  ;; Author: David Gillespie <address@hidden>
  ;; Maintainer: Colin Walters <address@hidden>
--- 1,6 ----
  ;;; calc-ext.el --- various extension functions for Calc
  
! ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002 Free Software Foundation, 
Inc.
  
  ;; Author: David Gillespie <address@hidden>
  ;; Maintainer: Colin Walters <address@hidden>
***************
*** 250,255 ****
--- 250,256 ----
    (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,1494 ****
--- 1490,1501 ----
        (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
***************
*** 1533,1539 ****
           (setq num (1- num)))))
    (and calc-embedded-active which-var
         (calc-embedded-var-change which-var)))
- 
  
  (defun calc-push (&rest vals)
    (calc-push-list vals))
--- 1540,1545 ----