diff options
| author | Colin Walters <walters@gnu.org> | 2002-09-30 04:23:37 +0000 |
|---|---|---|
| committer | Colin Walters <walters@gnu.org> | 2002-09-30 04:23:37 +0000 |
| commit | 9b08ce78d24d2fac7092afe3ace0f4bbac5d1544 (patch) | |
| tree | 3e4f2e59c9053f14bd58e89cec11a6314734ff77 /lisp/calc | |
| parent | b615eae0bd917db5ca4f22e1b240c7ece1c1b845 (diff) | |
| download | emacs-9b08ce78d24d2fac7092afe3ace0f4bbac5d1544.tar.gz emacs-9b08ce78d24d2fac7092afe3ace0f4bbac5d1544.tar.bz2 emacs-9b08ce78d24d2fac7092afe3ace0f4bbac5d1544.zip | |
(calc-flush-caches): Add optional arg `inhibit-msg'.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-stuff.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/calc/calc-stuff.el b/lisp/calc/calc-stuff.el index fb3891f5c45..bea5c847c1d 100644 --- a/lisp/calc/calc-stuff.el +++ b/lisp/calc/calc-stuff.el @@ -165,8 +165,8 @@ With a prefix, push that prefix as a number onto the stack." (message "Calc %s" calc-version)) -(defun calc-flush-caches () - (interactive) +(defun calc-flush-caches (&optional inhibit-msg) + (interactive "P") (calc-wrapper (setq math-lud-cache nil math-log2-cache nil @@ -184,7 +184,8 @@ With a prefix, push that prefix as a number onto the stack." math-format-date-cache nil math-holidays-cache-tag t) (mapcar (function (lambda (x) (set x -100))) math-cache-list) - (message "All internal calculator caches have been reset"))) + (unless inhibit-msg + (message "All internal calculator caches have been reset")))) ;;; Conversions. |