1 files changed, 4 insertions, 6 deletions

diff --git a/lisp/filecache.el b/lisp/filecache.el
index ae3cb8d074a..69649e105bc 100644
--- a/lisp/filecache.el
+++ b/lisp/filecache.el
@@ -453,8 +453,9 @@ message reporting the number of file names deleted."
     (dolist (f files)
       (if (file-cache-delete-file f)
           (setq n (1+ n))))
-    (message "Filecache: uncached %d file name%s."
-             n (if (= n 1) "" "s"))))
+    (when message
+      (message "Filecache: uncached %d file name%s."
+               n (if (= n 1) "" "s")))))
 
 (defun file-cache-delete-file-regexp (regexp)
   "Delete files matching REGEXP from the file cache."
@@ -679,10 +680,7 @@ match REGEXP."
                 "*File Cache Files Matching*")))
     (erase-buffer)
     (insert
-     (mapconcat
-      'identity
-      results
-      "\n"))
+     (mapconcat #'identity results "\n"))
     (goto-char (point-min))
     (display-buffer buf)))