emacs-diffs
[Top][All Lists]
Advanced

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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]