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:
parent
2197ea89bf
commit
221a3272ad
1 changed files with 1 additions and 1 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue