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

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       09/07/06 13:34:52

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&r1=1.241&r2=1.242

Patches:
Index: tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.241
retrieving revision 1.242
diff -u -b -r1.241 -r1.242
--- tramp.el    30 Jun 2009 21:10:55 -0000      1.241
+++ tramp.el    6 Jul 2009 13:34:51 -0000       1.242
@@ -4403,9 +4403,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"))
@@ -7836,7 +7838,13 @@
 ;;   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