From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 31 Oct 2022 15:48:15 +0000 (+0100)
Subject: Fix tramp-handle-file-newer-than-file-p
X-Git-Tag: emacs-29.0.90~1616^2~365
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7a76f288cc9d3a962cd5790203dc89303e81c97;p=emacs.git

Fix tramp-handle-file-newer-than-file-p

* lisp/net/tramp.el (tramp-handle-file-newer-than-file-p): Don't use
fractions of seconds.  (Bug#58842)
---

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 63f313dc509..9552e51c48d 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3997,6 +3997,17 @@ Let-bind it when necessary.")
   (cond
    ((not (file-exists-p file1)) nil)
    ((not (file-exists-p file2)) t)
+   ;; Tramp reads and writes timestamps on second level.  So we round
+   ;; the timestamps to seconds w/o fractions.
+   ;; `time-convert' has been introduced with Emacs 27.1.
+   ((fboundp 'time-convert)
+    (time-less-p
+     (tramp-compat-funcall
+      'time-convert
+      (file-attribute-modification-time (file-attributes file2)) 'integer)
+     (tramp-compat-funcall
+      'time-convert
+      (file-attribute-modification-time (file-attributes file1)) 'integer)))
    (t (time-less-p
        (file-attribute-modification-time (file-attributes file2))
        (file-attribute-modification-time (file-attributes file1))))))