[Emacs-diffs] emacs/lisp/net tramp-cache.el

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       09/04/09 13:40:23

Modified files:
        lisp/net       : tramp-cache.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp-cache.el?cvsroot=emacs&r1=1.19&r2=1.20

Patches:
Index: tramp-cache.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp-cache.el,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- tramp-cache.el      1 Feb 2009 10:45:30 -0000       1.19
+++ tramp-cache.el      9 Apr 2009 13:40:19 -0000       1.20
@@ -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)))