[Emacs-diffs] master 5824dd5: Quote directory name in tramp-flush-directory-property

[Michael Albinus]

branch: master
commit 5824dd5b6a67b3de83d281049d3694066e1462a7
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Quote directory name in tramp-flush-directory-property
    
    * net/tramp-cache.el (tramp-flush-directory-property): Quote directory
    name when used in regexp.
---
 lisp/ChangeLog          |    5 +++++
 lisp/net/tramp-cache.el |    3 ++-
 2 files changed, 7 insertions(+), 1 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cab6aba..5a7d953 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-04-04  Michael Albinus  <address@hidden>
+
+       * net/tramp-cache.el (tramp-flush-directory-property): Quote directory
+       name when used in regexp.
+
 2015-04-04  Alan Mackenzie  <address@hidden>
 
        Fix debbugs#20240 part two (jit-lock error during `comment-dwim').
diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index 155053c..ba29ef0 100644
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -196,7 +196,8 @@ Remove also properties of all files in subdirectories."
     (maphash
      (lambda (key _value)
        (when (and (stringp (tramp-file-name-localname key))
-                 (string-match directory (tramp-file-name-localname key)))
+                 (string-match (regexp-quote directory)
+                               (tramp-file-name-localname key)))
         (remhash key tramp-cache-data)))
      tramp-cache-data)))