diff options
| author | Paul Eggert | 2018-03-27 13:48:13 -0700 |
|---|---|---|
| committer | Paul Eggert | 2018-03-27 13:48:36 -0700 |
| commit | c8e8d16810ec09139c560c77572d3372a2edd8d2 (patch) | |
| tree | 3a847c123f4a3caced5a0594d2c1da804512ac84 | |
| parent | 72fad885b68617db85901a8e810211b557a31f99 (diff) | |
| download | emacs-c8e8d16810ec09139c560c77572d3372a2edd8d2.tar.gz emacs-c8e8d16810ec09139c560c77572d3372a2edd8d2.zip | |
Avoid using unportable integer in org-clock
* lisp/org/org-clock.el (org-clock--oldest-date): Avoid use of an
integer outside portable Emacs range. Go back to using a simple
check, since decode-time should no longer infloop.
| -rw-r--r-- | lisp/org/org-clock.el | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el index 4c5fcc64b0f..c124abd3918 100644 --- a/lisp/org/org-clock.el +++ b/lisp/org/org-clock.el | |||
| @@ -478,17 +478,7 @@ to add an effort property.") | |||
| 478 | (funcall dichotomy | 478 | (funcall dichotomy |
| 479 | most-negative-fixnum | 479 | most-negative-fixnum |
| 480 | 0 | 480 | 0 |
| 481 | (lambda (m) | 481 | (lambda (m) (ignore-errors (decode-time (list m 0)))))) |
| 482 | ;; libc in macOS 10.6 hangs when decoding times | ||
| 483 | ;; around year -2**31. Limit `high' not to go | ||
| 484 | ;; any earlier than that. | ||
| 485 | (unless (and (eq system-type 'darwin) | ||
| 486 | (string-match-p | ||
| 487 | "10\\.6\\.[[:digit:]]" | ||
| 488 | (shell-command-to-string | ||
| 489 | "sw_vers -productVersion")) | ||
| 490 | (<= m -1034058203135)) | ||
| 491 | (ignore-errors (decode-time (list m 0))))))) | ||
| 492 | (low | 482 | (low |
| 493 | (funcall dichotomy | 483 | (funcall dichotomy |
| 494 | most-negative-fixnum | 484 | most-negative-fixnum |