diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2019-08-19 18:04:56 -0700 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2019-08-25 11:47:17 -0400 |
commit | 190a3b6c4e5d77b71534b195f79e4665bed6e638 (patch) | |
tree | 11518b3cf6d7c459be99e249ea4760fd340f8375 | |
parent | 9e1b9fe62779ecbdfd67a971dd3f549c5099e0f2 (diff) | |
download | org-mode-190a3b6c4e5d77b71534b195f79e4665bed6e638.tar.gz |
Backport commit 221a3272a from Emacs
* lisp/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.
Fix org-table 65536-second bug
221a3272ad4a1befb41dda2990d672782bc0257f
Paul Eggert
Mon Aug 19 18:05:15 2019 -0700
Note(km): time-less-p and time-subtract have been replaced with the
corresponding Org compatibility functions.
-rw-r--r-- | lisp/org-table.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-table.el b/lisp/org-table.el index 0161d73..f6eb425 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -3190,7 +3190,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) (org-time-less-p 1 (org-time-subtract curtime t1))) (progn (apply 'message args) curtime) t1))) |