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) |