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.
This commit is contained in:
Paul Eggert 2019-08-19 18:04:56 -07:00
parent 2197ea89bf
commit 221a3272ad

View file

@ -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)))