diff options
| author | Michael Albinus | 2015-04-08 11:51:22 +0200 |
|---|---|---|
| committer | Michael Albinus | 2015-04-08 11:51:22 +0200 |
| commit | b3f2874de2b6e31df34a7515aa09e10f01e9b8a6 (patch) | |
| tree | 8f7f7f97083357e8d6e5459198ce9239f14af88f | |
| parent | 23468561682aea0705249a469f614bb873e4f411 (diff) | |
| download | emacs-b3f2874de2b6e31df34a7515aa09e10f01e9b8a6.tar.gz emacs-b3f2874de2b6e31df34a7515aa09e10f01e9b8a6.zip | |
Fix nasty scoping bug in tramp-cache.el
* lisp/net/tramp-cache.el (tramp-flush-file-property): Fix nasty scoping bug.
| -rw-r--r-- | lisp/net/tramp-cache.el | 12 |
1 files 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." | |||
| 174 | ;; Remove file properties of symlinks. | 174 | ;; Remove file properties of symlinks. |
| 175 | (when (and (stringp truename) | 175 | (when (and (stringp truename) |
| 176 | (not (string-equal file (directory-file-name truename)))) | 176 | (not (string-equal file (directory-file-name truename)))) |
| 177 | (tramp-flush-file-property key truename))) | 177 | (tramp-flush-file-property key truename)) |
| 178 | ;; Unify localname. | 178 | ;; Unify localname. |
| 179 | (setq key (copy-sequence key)) | 179 | (setq key (copy-sequence key)) |
| 180 | (aset key 3 file) | 180 | (aset key 3 file) |
| 181 | (tramp-message key 8 "%s" file) | 181 | (tramp-message key 8 "%s" file) |
| 182 | (remhash key tramp-cache-data)) | 182 | (remhash key tramp-cache-data))) |
| 183 | 183 | ||
| 184 | ;;;###tramp-autoload | 184 | ;;;###tramp-autoload |
| 185 | (defun tramp-flush-directory-property (key directory) | 185 | (defun tramp-flush-directory-property (key directory) |