From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 9 Aug 2013 23:15:39 +0000 (+0200)
Subject: lisp/filecache.el (file-cache-delete-file-list): Print message only when told so.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1686^2~341
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c5dee787e1443947c58a55e12ffc505b144c1fc;p=emacs.git

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 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)))