(calc-flush-caches): Add optional arg `inhibit-msg'.

diff --git a/lisp/calc/calc-stuff.el b/lisp/calc/calc-stuff.el
index fb3891f5c45cd106c3256f6021515bdaa922331a..bea5c847c1dc58e07021d8491cafad1e5697137b 100644 (file)
--- 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.