* net/tramp.el (tramp-handle-write-region): Flush file properties

in case of short track.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5d64c6c6443fb5df971eff71b26eae98cdea7488..8ec80fccabc6db67bb1a3b8225761c30456ad2e6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-07-06  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp.el (tramp-handle-write-region): Flush file properties
+       in case of short track.
+
 2009-07-06  Glenn Morris  <rgm@gnu.org>
 
        * subr.el (eval-after-load): Doc fix.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 517485a1d655a8cd7ec3123059c39b5d2cbb2ff6..01ce21698a4b3787b69fcbf02edcf85947408fef 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -4364,9 +4364,11 @@ Returns a file name in `tramp-auto-save-directory' for autosaving this file."
                  (or (file-directory-p localname)
                      (file-writable-p localname)))))
          ;; Short track: if we are on the local host, we can run directly.
-         (tramp-run-real-handler
-          'write-region
-          (list start end localname append 'no-message lockname confirm))
+         (prog1
+             (tramp-run-real-handler
+              'write-region
+              (list start end localname append 'no-message lockname confirm))
+           (tramp-flush-file-property v localname))
 
        (let ((rem-dec (tramp-get-remote-coding v "remote-decoding"))
              (loc-enc (tramp-get-local-coding v "local-encoding"))