From b3f2874de2b6e31df34a7515aa09e10f01e9b8a6 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 8 Apr 2015 11:51:22 +0200 Subject: [PATCH] Fix nasty scoping bug in tramp-cache.el * lisp/net/tramp-cache.el (tramp-flush-file-property): Fix nasty scoping bug. --- lisp/net/tramp-cache.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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) -- 2.39.2