From 5c5dee787e1443947c58a55e12ffc505b144c1fc Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sat, 10 Aug 2013 01:15:39 +0200 Subject: [PATCH 1/1] lisp/filecache.el (file-cache-delete-file-list): Print message only when told so. (file-cache-files-matching): Use #' in mapconcat argument. --- lisp/ChangeLog | 4 ++++ lisp/filecache.el | 10 ++++------ 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3901885328..796ba3074e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2013-08-09 Juanma Barranquero + * 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 ae3cb8d074..69649e105b 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))) -- 2.20.1