[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master b7a76f288c: Fix tramp-handle-file-newer-than-file-p
From: |
Michael Albinus |
Subject: |
master b7a76f288c: Fix tramp-handle-file-newer-than-file-p |
Date: |
Mon, 31 Oct 2022 11:48:27 -0400 (EDT) |
branch: master
commit b7a76f288cc9d3a962cd5790203dc89303e81c97
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
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)
---
lisp/net/tramp.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 63f313dc50..9552e51c48 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))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master b7a76f288c: Fix tramp-handle-file-newer-than-file-p,
Michael Albinus <=