(tramp-handle-verify-visited-file-modtime): New

docstring.  From Luc Teirlinck.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1877f9c0281d65e140b1b19f9c0bf5d24f3371b4..876646163e39627ba680131b83b1d53234ca2fcc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-17  Kai Grossjohann  <kai.grossjohann@gmx.net>
+
+       * net/tramp.el (tramp-handle-verify-visited-file-modtime): New
+       docstring.  From Luc Teirlinck.
+
 2004-07-17  Luc Teirlinck  <teirllm@auburn.edu>
 
        * autorevert.el: Describe `Auto Revert Tail Mode' in `Commentary'

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 7f04a9488111a712c8ed2de7db41514509c75393..02b076483c12755a0744673fc9d0f08d6d7303a3 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2331,7 +2331,12 @@ If it doesn't exist, generate a new one."
 ;; 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