Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
(file-cache-files-matching): Use #' in mapconcat argument.
This commit is contained in:
Juanma Barranquero 2013-08-10 01:15:39 +02:00
parent 156aab806b
commit 5c5dee787e
2 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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.

10
lisp/filecache.el
View file

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