(file-cache-files-matching): Use #' in mapconcat argument.
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.
(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."
"*File Cache Files Matching*")))
(erase-buffer)
(insert
- (mapconcat
- 'identity
- results
- "\n"))
+ (mapconcat #'identity results "\n"))
(goto-char (point-min))
(display-buffer buf)))