Mercurial > emacs
diff lisp/net/tramp-gvfs.el @ 106093:723842a98273
* 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 | b6d8539323de |
children | 1d1d5d9bd884 |
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))