From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 8 Apr 2015 09:51:22 +0000 (+0200)
Subject: Fix nasty scoping bug in tramp-cache.el
X-Git-Tag: emacs-25.0.90~2537
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3f2874de2b6e31df34a7515aa09e10f01e9b8a6;p=emacs.git

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 ba29ef04429..f2ee49ff6be 100644
--- 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)