2331 |
;; This function makes the same assumption as |
;; This function makes the same assumption as |
2332 |
;; `tramp-handle-set-visited-file-modtime'. |
;; `tramp-handle-set-visited-file-modtime'. |
2333 |
(defun tramp-handle-verify-visited-file-modtime (buf) |
(defun tramp-handle-verify-visited-file-modtime (buf) |
2334 |
"Like `verify-visited-file-modtime' for tramp files." |
"Like `verify-visited-file-modtime' for tramp files. |
2335 |
|
At the time `verify-visited-file-modtime' calls this function, we |
2336 |
|
already know that the buffer is visiting a file and that |
2337 |
|
`visited-file-modtime' does not return 0. Do not call this |
2338 |
|
function directly, unless those two cases are already taken care |
2339 |
|
of." |
2340 |
(with-current-buffer buf |
(with-current-buffer buf |
2341 |
(let ((f (buffer-file-name))) |
(let ((f (buffer-file-name))) |
2342 |
(with-parsed-tramp-file-name f nil |
(with-parsed-tramp-file-name f nil |