Fix nasty scoping bug in tramp-cache.el

* lisp/net/tramp-cache.el (tramp-flush-file-property): Fix nasty scoping bug.

diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index ba29ef04429803c54e997702583f8408f41e224b..f2ee49ff6be638ff279a47111a509214525650b4 100644 (file)
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -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)