# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1239284419 0
# Node ID dafde9e3d72ba1245ef17cb30562bfae098b4181
# Parent  c87b4319622607809f2a51402414fa208a505ceb
* tramp-cache.el (tramp-flush-directory-property): Use the
localname of KEY for check.

diff -r c87b43196226 -r dafde9e3d72b lisp/net/tramp-cache.el
--- a/lisp/net/tramp-cache.el	Thu Apr 09 11:11:25 2009 +0000
+++ b/lisp/net/tramp-cache.el	Thu Apr 09 13:40:19 2009 +0000
@@ -138,7 +138,7 @@
   (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)))