Mercurial > emacs

comparison lisp/net/tramp-gvfs.el @ 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 b6d8539323de
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
106092:6804c4648fee 106093:723842a98273
725 "gvfs-save" tmpfile (tramp-get-buffer v) nil 725 "gvfs-save" tmpfile (tramp-get-buffer v) nil
726 (tramp-gvfs-url-file-name filename))) 726 (tramp-gvfs-url-file-name filename)))
727 (signal (car err) (cdr err))) 727 (signal (car err) (cdr err)))
728 (delete-file tmpfile))))) 728 (delete-file tmpfile)))))
729 729
730 ;; Set file modification time.
731 (when (or (eq visit t) (stringp visit))
732 (set-visited-file-modtime (nth 5 (file-attributes filename))))
733
730 ;; The end. 734 ;; The end.
731 (when (or (eq visit t) (null visit) (stringp visit)) 735 (when (or (eq visit t) (null visit) (stringp visit))
732 (tramp-message v 0 "Wrote %s" filename)) 736 (tramp-message v 0 "Wrote %s" filename))
733 (run-hooks 'tramp-handle-write-region-hook))) 737 (run-hooks 'tramp-handle-write-region-hook)))
734 738