* net/tramp-gvfs.el (tramp-gvfs-handle-write-region): Set file

modification time.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58ea6df92db5fc81802f6bd8e68b15ac4a5d6313..b37581909ebcc0df8c209a317edc48ad919b4b43 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,9 @@
        * net/tramp.el (tramp-advice-file-expand-wildcards): Simplify.
        Don't set `ad-return-value' if `ad-do-it' doesn't.
 
+       * net/tramp-gvfs.el (tramp-gvfs-handle-write-region): Set file
+       modification time.
+
 2009-11-17  Jan Djärv  <jan.h.d@swipnet.se>
 
        * menu-bar.el: Put "Use system font" in Option-menu.

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index a04f891b3f5641364cb4497f832e5fbef8f5459d..a07b5df0a1e5eb7ecbe93314f95e74b0a03ad750 100644 (file)
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -727,6 +727,10 @@ is no information where to trace the message.")
               (signal (car err) (cdr err)))
           (delete-file tmpfile)))))
 
+    ;; Set file modification time.
+    (when (or (eq visit t) (stringp visit))
+      (set-visited-file-modtime (nth 5 (file-attributes filename))))
+
     ;; The end.
     (when (or (eq visit t) (null visit) (stringp visit))
       (tramp-message v 0 "Wrote %s" filename))