/[emacs]/emacs/lisp/net/tramp.el
ViewVC logotype

Diff of /emacs/lisp/net/tramp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.34.2.8 by miles, Tue Jul 6 10:23:37 2004 UTC revision 1.34.2.9 by miles, Sat Jul 17 02:51:55 2004 UTC
# Line 2343  If it doesn't exist, generate a new one. Line 2343  If it doesn't exist, generate a new one.
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

Legend:
Removed from v.1.34.2.8  
changed lines
  Added in v.1.34.2.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26