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

in case of short track.

2 files changed, 17 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 526eb69a20b..14e667f086e 100644
--- 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-07  Michael McNamara  <mac@mail.brushroad.com>
 
         * verilog-mode.el (verilog-error-regexp-emacs-alist): Coded custom
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index b410f1499ee..d95430d55d2 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -4403,9 +4403,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"))
@@ -7836,7 +7838,13 @@ Only works for Bourne-like shells."
 ;;   might be worthwhile to add some way to indicate that a particular
 ;;   use of process-file is (supposed to be) free of side-effects.
 ;;   (Stefan Monnier)
-;; * Use lsh instead of ssh (Alfred M. Szmidt)
+;; * Use lsh instead of ssh. (Alfred M. Szmidt)
+;; * Implement a general server-local-variable mechanism, as there are
+;;   probably other variables that need different values for different
+;;   servers too.  The user could then configure a variable (such as
+;;   tramp-server-local-variable-alist) to define any such variables
+;;   that they need to, which would then be let bound as appropriate
+;;   in tramp functions. (Jason Rumney)
 
 ;; Functions for file-name-handler-alist:
 ;; diff-latest-backup-file -- in diff.el