diff options
| author | Michael Albinus | 2018-08-01 23:09:31 +0200 |
|---|---|---|
| committer | Michael Albinus | 2018-08-01 23:09:31 +0200 |
| commit | 2f37ecaefcc61b0bf389f1c1eb3ac1b15105f056 (patch) | |
| tree | 2f44544d3b1075f9420f92d2a591b20b4bf3ca86 | |
| parent | df7371b84e9cfbb6e62c3196c2bc588eb934b835 (diff) | |
| download | emacs-2f37ecaefcc61b0bf389f1c1eb3ac1b15105f056.tar.gz emacs-2f37ecaefcc61b0bf389f1c1eb3ac1b15105f056.zip | |
Fix Bug#32325
* lisp/net/tramp-sh.el (tramp-sh-handle-make-directory): In case
of PARENTS flush also upper directories caches. (Bug#32325)
| -rw-r--r-- | lisp/net/tramp-sh.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index 2d253506dde..86e82d40929 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el | |||
| @@ -2547,7 +2547,11 @@ The method used must be an out-of-band method." | |||
| 2547 | "Like `make-directory' for Tramp files." | 2547 | "Like `make-directory' for Tramp files." |
| 2548 | (setq dir (expand-file-name dir)) | 2548 | (setq dir (expand-file-name dir)) |
| 2549 | (with-parsed-tramp-file-name dir nil | 2549 | (with-parsed-tramp-file-name dir nil |
| 2550 | (tramp-flush-directory-properties v (file-name-directory localname)) | 2550 | ;; When PARENTS is non-nil, DIR could be a chain of non-existent |
| 2551 | ;; directories a/b/c/... Instead of checking, we simply flush the | ||
| 2552 | ;; whole cache. | ||
| 2553 | (tramp-flush-directory-properties | ||
| 2554 | v (if parents "/" (file-name-directory localname))) | ||
| 2551 | (save-excursion | 2555 | (save-excursion |
| 2552 | (tramp-barf-unless-okay | 2556 | (tramp-barf-unless-okay |
| 2553 | v (format "%s %s" | 2557 | v (format "%s %s" |