From 4813c36271fbb8c84fb391a2b82f45bfadc81f58 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 30 May 2002 01:05:21 +0000 Subject: [PATCH] (calc-init-extensions): Add binding for `d@'. (calc-toggle-banner): New function. --- lisp/calc/calc-ext.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el index e26906bd608..66daedf02e2 100644 --- a/lisp/calc/calc-ext.el +++ b/lisp/calc/calc-ext.el @@ -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 ;; Maintainer: Colin Walters @@ -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 @@ calc-kill calc-kill-region calc-yank)))) (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 @@ calc-kill calc-kill-region calc-yank)))) (and calc-embedded-active which-var (calc-embedded-var-change which-var))) - (defun calc-push (&rest vals) (calc-push-list vals)) -- 2.39.5