Mercurial > emacs

changeset 47694:c7b1f2c10ed4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-flush-caches): Add optional arg `inhibit-msg'.
author Colin Walters <walters@gnu.org>
date Mon, 30 Sep 2002 04:23:37 +0000
parents 6dd3bdf36ac0
children 37adf7fffb23
files lisp/calc/calc-stuff.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-stuff.el	Mon Sep 30 04:23:09 2002 +0000
+++ b/lisp/calc/calc-stuff.el	Mon Sep 30 04:23:37 2002 +0000
@@ -165,8 +165,8 @@
   (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 @@
 	 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.