From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 9 Apr 2009 13:40:19 +0000 (+0000)
Subject: * tramp-cache.el (tramp-flush-directory-property): Use the
X-Git-Tag: emacs-pretest-23.0.93~186
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ec2288f4a910020a2e07523f75f8c610011e9e4;p=emacs.git

* tramp-cache.el (tramp-flush-directory-property): Use the
localname of KEY for check.
---

diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index 00e70aa79dd..8a42a3ff746 100644
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -138,7 +138,7 @@ Remove also properties of all files in subdirectories."
   (tramp-message vec 8 "%s" directory)
     (maphash
      '(lambda (key value)
-	(when (and (stringp key)
+	(when (and (stringp (tramp-file-name-localname key))
 		   (string-match directory (tramp-file-name-localname key)))
 	  (remhash key tramp-cache-data)))
      tramp-cache-data)))