diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2004-07-14 23:04:14 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2004-07-14 23:04:14 +0000 |
| commit | 12cd6dfb8574eae2e92d73704b3101eb31f8468d (patch) | |
| tree | fc80303d44216fa738dbef612e97665627ad7abb /lisp | |
| parent | ca02a7263d2e5f26ef975661638d0044b24fa9a3 (diff) | |
| download | emacs-12cd6dfb8574eae2e92d73704b3101eb31f8468d.tar.gz emacs-12cd6dfb8574eae2e92d73704b3101eb31f8468d.tar.bz2 emacs-12cd6dfb8574eae2e92d73704b3101eb31f8468d.zip | |
(tramp-handle-verify-visited-file-modtime): `visited-file-modtime' now
returns a list of two integers, instead of a cons.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/tramp.el | 9 |
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 |