[Emacs-diffs] Changes to emacs/lisp/net/tramp.el

[Luc Teirlinck]

Index: emacs/lisp/net/tramp.el
diff -c emacs/lisp/net/tramp.el:1.46 emacs/lisp/net/tramp.el:1.47
*** emacs/lisp/net/tramp.el:1.46        Sat Jun 26 15:28:08 2004
--- emacs/lisp/net/tramp.el     Wed Jul 14 23:04:14 2004
***************
*** 2343,2349 ****
                 ;; (HIGH . LOW)?
                 (let ((mt (visited-file-modtime)))
                   (< (abs (tramp-time-diff
!                           modtime (list (car mt) (cdr mt)))) 2)))
                (attr
                 (save-excursion
                   (tramp-send-command
--- 2343,2356 ----
                 ;; (HIGH . LOW)?
                 (let ((mt (visited-file-modtime)))
                   (< (abs (tramp-time-diff
!                           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