Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 11:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(tramp-handle-verify-visited-file-modtime): `visited-file-modtime' now

Browse source 
returns a list of two integers, instead of a cons.
This commit is contained in:
Luc Teirlinck 2004-07-14 23:04:14 +00:00
parent ca02a7263d
commit 12cd6dfb85
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/net/tramp.el
View file

@ -2343,7 +2343,14 @@ If it doesn't exist, generate a new one."
;; (HIGH . LOW)?
(let ((mt (visited-file-modtime)))
(< (abs (tramp-time-diff
modtime (list (car mt) (cdr mt)))) 2)))
modtime
;; For compatibility, deal with both the old
;; (HIGH . LOW) and the new (HIGH LOW)
;; return values of `visited-file-modtime'.
(if (atom (cdr mt))
(list (car mt) (cdr mt))
mt)))
2)))
(attr
(save-excursion
(tramp-send-command