lisp/filecache.el (file-cache-delete-file-list): Print message only when told so.

(file-cache-files-matching): Use #' in mapconcat argument.

2 files changed, 8 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 39018853285..796ba3074e1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2013-08-09  Juanma Barranquero  <lekktu@gmail.com>
 
+        * filecache.el (file-cache-delete-file-list):
+        Print message only when told so.
+        (file-cache-files-matching): Use #' in mapconcat argument.
+
         * ffap.el (ffap-url-at-point): Fix reference to variable
         thing-at-point-default-mail-uri-scheme.
 
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)))