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.
This commit is contained in:
parent
72fad885b6
commit
c8e8d16810
1 changed files with 1 additions and 11 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue