From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 20 Aug 2019 01:04:56 +0000 (-0700)
Subject: Fix org-table 65536-second bug
X-Git-Tag: emacs-27.0.90~1565
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=221a3272ad4a1befb41dda2990d672782bc0257f;p=emacs.git

Fix org-table 65536-second bug

* lisp/org/org-table.el (org-table-message-once-per-second):
Fix bug when clock difference goes past a 65536-second boundary.
Don’t assume particular format for current-time result.
---

diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el
index 513a534d9b5..a65629b302c 100644
--- a/lisp/org/org-table.el
+++ b/lisp/org/org-table.el
@@ -3169,7 +3169,7 @@ ARGS are passed as arguments to the `message' function.  Returns
 current time if a message is printed, otherwise returns T1.  If
 T1 is nil, always messages."
   (let ((curtime (current-time)))
-    (if (or (not t1) (< 0 (nth 1 (time-subtract curtime t1))))
+    (if (or (not t1) (time-less-p 1 (time-subtract curtime t1)))
 	(progn (apply 'message args)
 	       curtime)
       t1)))