From: Kai Gro?j. <ka...@us...> - 2002-01-19 12:13:37
|
Update of /cvsroot/tramp/tramp/lisp In directory usw-pr-cvs1:/tmp/cvs-serv2847/tramp/lisp Modified Files: ChangeLog tramp.el Log Message: (tramp-handle-verify-visited-file-modtime): Allow 1 sec difference between times. Index: ChangeLog =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v retrieving revision 2.68 retrieving revision 2.69 diff -C2 -d -r2.68 -r2.69 *** ChangeLog 2002/01/19 12:00:21 2.68 --- ChangeLog 2002/01/19 12:13:34 2.69 *************** *** 6,9 **** --- 6,11 ---- (tramp-handle-set-visited-file-modtime): If time-list is provided, call real handler with that data. + (tramp-handle-verify-visited-file-modtime): Allow 1 sec + difference between times. 2002-01-10 Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> Index: tramp.el =================================================================== RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v retrieving revision 2.71 retrieving revision 2.72 diff -C2 -d -r2.71 -r2.72 *** tramp.el 2002/01/19 12:00:21 2.71 --- tramp.el 2002/01/19 12:13:34 2.72 *************** *** 1616,1621 **** ;; Why does `file-attributes' return a list (HIGH LOW), but ;; `visited-file-modtime' returns a cons (HIGH . LOW)? ! (and (equal (car (visited-file-modtime)) (nth 0 modtime)) ! (equal (cdr (visited-file-modtime)) (nth 1 modtime))) (save-excursion (tramp-send-command --- 1616,1621 ---- ;; Why does `file-attributes' return a list (HIGH LOW), but ;; `visited-file-modtime' returns a cons (HIGH . LOW)? ! (let ((mt (visited-file-modtime))) ! (< (abs (tramp-time-diff modtime (list (car mt) (cdr mt)))) 2)) (save-excursion (tramp-send-command |