mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

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

Browse Source 
modification time.
This commit is contained in:
Michael Albinus 2009-11-17 14:58:08 +00:00
parent 21050de1b8
commit 303ffde825
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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.

4
lisp/net/tramp-gvfs.el
View File

@ -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))