# HG changeset patch # User Kai Grojohann # Date 1090100012 0 # Node ID 6b42a91e35951fdbd1a1abeb0fe0b3deac7362b4 # Parent 9e7aab13fbb86d81f6030b9fd3febfb914bb0542 (tramp-handle-verify-visited-file-modtime): New docstring. From Luc Teirlinck. diff -r 9e7aab13fbb8 -r 6b42a91e3595 lisp/ChangeLog --- a/lisp/ChangeLog Sat Jul 17 20:55:57 2004 +0000 +++ b/lisp/ChangeLog Sat Jul 17 21:33:32 2004 +0000 @@ -1,3 +1,8 @@ +2004-07-17 Kai Grossjohann + + * net/tramp.el (tramp-handle-verify-visited-file-modtime): New + docstring. From Luc Teirlinck. + 2004-07-17 Luc Teirlinck * autorevert.el: Describe `Auto Revert Tail Mode' in `Commentary' diff -r 9e7aab13fbb8 -r 6b42a91e3595 lisp/net/tramp.el --- a/lisp/net/tramp.el Sat Jul 17 20:55:57 2004 +0000 +++ b/lisp/net/tramp.el Sat Jul 17 21:33:32 2004 +0000 @@ -2331,7 +2331,12 @@ ;; This function makes the same assumption as ;; `tramp-handle-set-visited-file-modtime'. (defun tramp-handle-verify-visited-file-modtime (buf) - "Like `verify-visited-file-modtime' for tramp files." + "Like `verify-visited-file-modtime' for tramp files. +At the time `verify-visited-file-modtime' calls this function, we +already know that the buffer is visiting a file and that +`visited-file-modtime' does not return 0. Do not call this +function directly, unless those two cases are already taken care +of." (with-current-buffer buf (let ((f (buffer-file-name))) (with-parsed-tramp-file-name f nil