[Emacs-diffs] emacs/lisp/net tramp.el [EMACS_23_1_RC]

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_23_1_RC
Changes by:     Michael Albinus <albinus>       09/07/06 13:40:27

Modified files:
        lisp/net       : tramp.el 

Log message:
        * net/tramp.el (tramp-handle-write-region): Flush file properties
        in case of short track.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp.el?cvsroot=emacs&only_with_tag=EMACS_23_1_RC&r1=1.236.2.3&r2=1.236.2.4

Patches:
Index: tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.236.2.3
retrieving revision 1.236.2.4
diff -u -b -r1.236.2.3 -r1.236.2.4
--- tramp.el    30 Jun 2009 15:30:09 -0000      1.236.2.3
+++ tramp.el    6 Jul 2009 13:40:26 -0000       1.236.2.4
@@ -4364,9 +4364,11 @@
                  (or (file-directory-p localname)
                      (file-writable-p localname)))))
          ;; Short track: if we are on the local host, we can run directly.
+         (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"))