]> git.eshelyaron.com Git - emacs.git/commitdiff
* tramp-cache.el (tramp-flush-directory-property): Use the
authorMichael Albinus <michael.albinus@gmx.de>
Thu, 9 Apr 2009 13:40:19 +0000 (13:40 +0000)
committerMichael Albinus <michael.albinus@gmx.de>
Thu, 9 Apr 2009 13:40:19 +0000 (13:40 +0000)
localname of KEY for check.

lisp/net/tramp-cache.el

index 00e70aa79dd19e477aa4aa50c0040c70957c53e2..8a42a3ff746c91681cd55559ddbe5c43d74b44ee 100644 (file)
@@ -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)))