Mercurial > emacs

changeset 106093:723842a98273

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/tramp-gvfs.el (tramp-gvfs-handle-write-region): Set file modification time.
author Michael Albinus <michael.albinus@gmx.de>
date Tue, 17 Nov 2009 14:57:39 +0000
parents 6804c4648fee
children feba29a647e4
files lisp/net/tramp-gvfs.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/tramp-gvfs.el	Tue Nov 17 13:47:29 2009 +0000
+++ b/lisp/net/tramp-gvfs.el	Tue Nov 17 14:57:39 2009 +0000
@@ -727,6 +727,10 @@
 	       (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))