From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 7 Oct 2009 11:27:10 +0000 (+0000)
Subject: * net/tramp-cache.el (tramp-flush-connection-property): Add trace message.
X-Git-Tag: emacs-pretest-23.1.90~887
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e946faaf51d3b5a1f6f9bc061546dd195c132a93;p=emacs.git

* net/tramp-cache.el (tramp-flush-connection-property): Add trace message.
---

diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index 3b1f4d46aad..1bb29d1766f 100644
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -238,6 +238,13 @@ KEY identifies the connection, it is either a process or a vector."
   (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))