Commit b3f2874d authored by Michael Albinus's avatar Michael Albinus

Fix nasty scoping bug in tramp-cache.el

* lisp/net/tramp-cache.el (tramp-flush-file-property): Fix nasty scoping bug.
parent 23468561
......@@ -174,12 +174,12 @@ Returns VALUE."
;; Remove file properties of symlinks.
(when (and (stringp truename)
(not (string-equal file (directory-file-name truename))))
(tramp-flush-file-property key truename)))
;; Unify localname.
(setq key (copy-sequence key))
(aset key 3 file)
(tramp-message key 8 "%s" file)
(remhash key tramp-cache-data))
(tramp-flush-file-property key truename))
;; Unify localname.
(setq key (copy-sequence key))
(aset key 3 file)
(tramp-message key 8 "%s" file)
(remhash key tramp-cache-data)))
;;;###tramp-autoload
(defun tramp-flush-directory-property (key directory)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment