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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 39018853285d50b4025cff98634ce010ad8a669c..796ba3074e1dbba133a8c95b5f0c4e0ae9da6d33 100644 (file)
--- 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 ae3cb8d074a0fda806ff7c991e4b1ca7cac768e5..69649e105bc1ba6b371d858fc0d8b4c9b03ba8b5 100644 (file)
--- 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)))