diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2018-03-27 13:48:13 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2018-03-27 13:48:36 -0700 |
| commit | c8e8d16810ec09139c560c77572d3372a2edd8d2 (patch) | |
| tree | 3a847c123f4a3caced5a0594d2c1da804512ac84 /lisp/org | |
| parent | 72fad885b68617db85901a8e810211b557a31f99 (diff) | |
| download | emacs-c8e8d16810ec09139c560c77572d3372a2edd8d2.tar.gz | |
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.
Diffstat (limited to 'lisp/org')
| -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.") (funcall dichotomy most-negative-fixnum 0 - (lambda (m) - ;; libc in macOS 10.6 hangs when decoding times - ;; around year -2**31. Limit `high' not to go - ;; any earlier than that. - (unless (and (eq system-type 'darwin) - (string-match-p - "10\\.6\\.[[:digit:]]" - (shell-command-to-string - "sw_vers -productVersion")) - (<= m -1034058203135)) - (ignore-errors (decode-time (list m 0))))))) + (lambda (m) (ignore-errors (decode-time (list m 0)))))) (low (funcall dichotomy most-negative-fixnum |