From 221a3272ad4a1befb41dda2990d672782bc0257f Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 19 Aug 2019 18:04:56 -0700 Subject: [PATCH] Fix org-table 65536-second bug MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * 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. --- lisp/org/org-table.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.39.2