summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/net/tramp.el9
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 0414859c7eb..d9a8d14309a 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -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