Mercurial > emacs

changeset 56424:27e781b70053

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tramp-handle-verify-visited-file-modtime): `visited-file-modtime' now returns a list of two integers, instead of a cons.
author Luc Teirlinck <teirllm@auburn.edu>
date Wed, 14 Jul 2004 23:04:14 +0000
parents fb8b1f758f89
children 5572efece9a6
files lisp/net/tramp.el
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/tramp.el	Wed Jul 14 22:59:08 2004 +0000
+++ b/lisp/net/tramp.el	Wed Jul 14 23:04:14 2004 +0000
@@ -2343,7 +2343,14 @@
 		 ;; (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