Commit 5c5dee78 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

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

(file-cache-files-matching): Use #' in mapconcat argument.
parent 156aab80
2013-08-09 Juanma Barranquero <lekktu@gmail.com> 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 * ffap.el (ffap-url-at-point): Fix reference to variable
thing-at-point-default-mail-uri-scheme. thing-at-point-default-mail-uri-scheme.
......
...@@ -453,8 +453,9 @@ message reporting the number of file names deleted." ...@@ -453,8 +453,9 @@ message reporting the number of file names deleted."
(dolist (f files) (dolist (f files)
(if (file-cache-delete-file f) (if (file-cache-delete-file f)
(setq n (1+ n)))) (setq n (1+ n))))
(message "Filecache: uncached %d file name%s." (when message
n (if (= n 1) "" "s")))) (message "Filecache: uncached %d file name%s."
n (if (= n 1) "" "s")))))
(defun file-cache-delete-file-regexp (regexp) (defun file-cache-delete-file-regexp (regexp)
"Delete files matching REGEXP from the file cache." "Delete files matching REGEXP from the file cache."
...@@ -679,10 +680,7 @@ match REGEXP." ...@@ -679,10 +680,7 @@ match REGEXP."
"*File Cache Files Matching*"))) "*File Cache Files Matching*")))
(erase-buffer) (erase-buffer)
(insert (insert
(mapconcat (mapconcat #'identity results "\n"))
'identity
results
"\n"))
(goto-char (point-min)) (goto-char (point-min))
(display-buffer buf))) (display-buffer buf)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment