Mercurial > emacs

changeset 105508:3b3d1d59e375

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/tramp-cache.el (tramp-flush-connection-property): Add trace message.
author Michael Albinus <michael.albinus@gmx.de>
date Wed, 07 Oct 2009 11:27:10 +0000
parents c2d3ff52ae27
children 69bf209a4707
files lisp/net/tramp-cache.el
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/tramp-cache.el	Wed Oct 07 10:20:04 2009 +0000
+++ b/lisp/net/tramp-cache.el	Wed Oct 07 11:27:10 2009 +0000
@@ -238,6 +238,13 @@
   (when (vectorp key)
     (setq key (copy-sequence key))
     (aset key 3 nil))
+  (tramp-message
+   key 7 "%s %s" key
+   (let (properties)
+     (maphash
+      (lambda (x y) (add-to-list 'properties x 'append))
+      (gethash key tramp-cache-data))
+     properties))
   (setq tramp-cache-data-changed t)
   (remhash key tramp-cache-data))