diff options
| author | Jürgen Hötzel <juergen@archlinux.org> | 2015-08-14 21:11:51 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2015-08-14 21:11:51 +0200 |
| commit | ee90aa6dc35f130ec503a113b6e5114224e255f5 (patch) | |
| tree | 428825962d05239a72d82a8a0a6705cf1a94ccec | |
| parent | 0ab86500e37e8d76a73f0c375bf9195340f4e18d (diff) | |
| download | emacs-ee90aa6dc35f130ec503a113b6e5114224e255f5.tar.gz emacs-ee90aa6dc35f130ec503a113b6e5114224e255f5.tar.bz2 emacs-ee90aa6dc35f130ec503a113b6e5114224e255f5.zip | |
Flush file properties in Tramp.
* lisp/net/tramp-sh.el (tramp-sh-handle-set-file-modes)
(tramp-sh-handle-set-file-times):
* lisp/net/tramp-adb.el (tramp-adb-handle-set-file-modes)
(tramp-adb-handle-set-file-times): Flush the file properties of
the directory.
| -rw-r--r-- | lisp/net/tramp-adb.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp-sh.el | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el index ca76f626b13..a8f52943f48 100644 --- a/lisp/net/tramp-adb.el +++ b/lisp/net/tramp-adb.el @@ -652,6 +652,7 @@ But handle the case, if the \"test\" command is not available." (defun tramp-adb-handle-set-file-modes (filename mode) "Like `set-file-modes' for Tramp files." (with-parsed-tramp-file-name filename nil + (tramp-flush-file-property v (file-name-directory localname)) (tramp-flush-file-property v localname) (tramp-adb-send-command-and-check v (format "chmod %s %s" (tramp-compat-decimal-to-octal mode) localname)))) @@ -659,6 +660,7 @@ But handle the case, if the \"test\" command is not available." (defun tramp-adb-handle-set-file-times (filename &optional time) "Like `set-file-times' for Tramp files." (with-parsed-tramp-file-name filename nil + (tramp-flush-file-property v (file-name-directory localname)) (tramp-flush-file-property v localname) (let ((time (if (or (null time) (equal time '(0 0))) (current-time) diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index bb939bf2df8..661c504b795 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el @@ -1407,6 +1407,7 @@ of." (defun tramp-sh-handle-set-file-modes (filename mode) "Like `set-file-modes' for Tramp files." (with-parsed-tramp-file-name filename nil + (tramp-flush-file-property v (file-name-directory localname)) (tramp-flush-file-property v localname) ;; FIXME: extract the proper text from chmod's stderr. (tramp-barf-unless-okay @@ -1421,6 +1422,7 @@ of." (if (tramp-tramp-file-p filename) (with-parsed-tramp-file-name filename nil (when (tramp-get-remote-touch v) + (tramp-flush-file-property v (file-name-directory localname)) (tramp-flush-file-property v localname) (let ((time (if (or (null time) (equal time '(0 0))) (current-time) |