[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r113782: lisp/filecache.el (file-cache-delete-file-l
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] trunk r113782: lisp/filecache.el (file-cache-delete-file-list): Print message only when told so. |
Date: |
Fri, 09 Aug 2013 23:15:51 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 113782
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Sat 2013-08-10 01:15:39 +0200
message:
lisp/filecache.el (file-cache-delete-file-list): Print message only when told
so.
(file-cache-files-matching): Use #' in mapconcat argument.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/filecache.el
filecache.el-20091113204419-o5vbwnq5f7feedwu-1191
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-08-09 23:08:46 +0000
+++ b/lisp/ChangeLog 2013-08-09 23:15:39 +0000
@@ -1,5 +1,9 @@
2013-08-09 Juanma Barranquero <address@hidden>
+ * 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.
=== modified file 'lisp/filecache.el'
--- a/lisp/filecache.el 2013-01-02 16:13:04 +0000
+++ b/lisp/filecache.el 2013-08-09 23:15:39 +0000
@@ -453,8 +453,9 @@
(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 @@
"*File Cache Files Matching*")))
(erase-buffer)
(insert
- (mapconcat
- 'identity
- results
- "\n"))
+ (mapconcat #'identity results "\n"))
(goto-char (point-min))
(display-buffer buf)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r113782: lisp/filecache.el (file-cache-delete-file-list): Print message only when told so.,
Juanma Barranquero <=