2343 |
;; (HIGH . LOW)? |
;; (HIGH . LOW)? |
2344 |
(let ((mt (visited-file-modtime))) |
(let ((mt (visited-file-modtime))) |
2345 |
(< (abs (tramp-time-diff |
(< (abs (tramp-time-diff |
2346 |
modtime (list (car mt) (cdr mt)))) 2))) |
modtime |
2347 |
|
;; For compatibility, deal with both the old |
2348 |
|
;; (HIGH . LOW) and the new (HIGH LOW) |
2349 |
|
;; return values of `visited-file-modtime'. |
2350 |
|
(if (atom (cdr mt)) |
2351 |
|
(list (car mt) (cdr mt)) |
2352 |
|
mt))) |
2353 |
|
2))) |
2354 |
(attr |
(attr |
2355 |
(save-excursion |
(save-excursion |
2356 |
(tramp-send-command |
(tramp-send-command |