diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2013-08-10 01:15:39 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2013-08-10 01:15:39 +0200 |
| commit | 5c5dee787e1443947c58a55e12ffc505b144c1fc (patch) | |
| tree | 5c9f215be16b13e89ae9baed7b3df220d5259e58 /lisp/filecache.el | |
| parent | 156aab806b31ee669f60c52bec821892d75f6c27 (diff) | |
| download | emacs-5c5dee787e1443947c58a55e12ffc505b144c1fc.tar.gz | |
lisp/filecache.el (file-cache-delete-file-list): Print message only when told so.
(file-cache-files-matching): Use #' in mapconcat argument.
Diffstat (limited to 'lisp/filecache.el')
| -rw-r--r-- | lisp/filecache.el | 10 |
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))) |