Mercurial > emacs
comparison lisp/calc/calc-ext.el @ 45579:eb535b77722f
(calc-init-extensions): Add binding for `d@'.
(calc-toggle-banner): New function.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 30 May 2002 01:05:21 +0000 |
parents | d71670d5afa3 |
children | 37adf7fffb23 |
comparison
equal
deleted
inserted
replaced
45578:73f6b3b88ae9 | 45579:eb535b77722f |
---|---|
1 ;;; calc-ext.el --- various extension functions for Calc | 1 ;;; calc-ext.el --- various extension functions for Calc |
2 | 2 |
3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: David Gillespie <daveg@synaptics.com> | 5 ;; Author: David Gillespie <daveg@synaptics.com> |
6 ;; Maintainer: Colin Walters <walters@debian.org> | 6 ;; Maintainer: Colin Walters <walters@debian.org> |
7 | 7 |
8 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
248 (define-key calc-mode-map "d{" 'calc-left-label) | 248 (define-key calc-mode-map "d{" 'calc-left-label) |
249 (define-key calc-mode-map "d}" 'calc-right-label) | 249 (define-key calc-mode-map "d}" 'calc-right-label) |
250 (define-key calc-mode-map "d'" 'calc-display-raw) | 250 (define-key calc-mode-map "d'" 'calc-display-raw) |
251 (define-key calc-mode-map "d " 'calc-refresh) | 251 (define-key calc-mode-map "d " 'calc-refresh) |
252 (define-key calc-mode-map "d\r" 'calc-refresh-top) | 252 (define-key calc-mode-map "d\r" 'calc-refresh-top) |
253 (define-key calc-mode-map "d@" 'calc-toggle-banner) | |
253 | 254 |
254 (define-key calc-mode-map "f" nil) | 255 (define-key calc-mode-map "f" nil) |
255 (define-key calc-mode-map "f?" 'calc-f-prefix-help) | 256 (define-key calc-mode-map "f?" 'calc-f-prefix-help) |
256 (define-key calc-mode-map "fb" 'calc-beta) | 257 (define-key calc-mode-map "fb" 'calc-beta) |
257 (define-key calc-mode-map "fe" 'calc-erf) | 258 (define-key calc-mode-map "fe" 'calc-erf) |
1487 (not (equal var '(calc-mode-save-mode))) | 1488 (not (equal var '(calc-mode-save-mode))) |
1488 (calc-save-modes t)))) | 1489 (calc-save-modes t)))) |
1489 (if calc-embedded-info (calc-embedded-modes-change var)) | 1490 (if calc-embedded-info (calc-embedded-modes-change var)) |
1490 (symbol-value (car var))))) | 1491 (symbol-value (car var))))) |
1491 | 1492 |
1493 (defun calc-toggle-banner () | |
1494 "Toggle display of the friendly greeting calc normally shows above the stack." | |
1495 (interactive) | |
1496 (setq calc-show-banner (not calc-show-banner)) | |
1497 (calc-refresh)) | |
1498 | |
1492 (defun calc-refresh-top (n) | 1499 (defun calc-refresh-top (n) |
1493 (interactive "p") | 1500 (interactive "p") |
1494 (calc-wrapper | 1501 (calc-wrapper |
1495 (cond ((< n 0) | 1502 (cond ((< n 0) |
1496 (setq n (- n)) | 1503 (setq n (- n)) |
1531 (calc-push-list (list new-val) num) | 1538 (calc-push-list (list new-val) num) |
1532 (calc-pop-stack 1 (1+ num) t))))) | 1539 (calc-pop-stack 1 (1+ num) t))))) |
1533 (setq num (1- num))))) | 1540 (setq num (1- num))))) |
1534 (and calc-embedded-active which-var | 1541 (and calc-embedded-active which-var |
1535 (calc-embedded-var-change which-var))) | 1542 (calc-embedded-var-change which-var))) |
1536 | |
1537 | 1543 |
1538 (defun calc-push (&rest vals) | 1544 (defun calc-push (&rest vals) |
1539 (calc-push-list vals)) | 1545 (calc-push-list vals)) |
1540 | 1546 |
1541 (defun calc-pop-push (n &rest vals) | 1547 (defun calc-pop-push (n &rest vals) |