diff options
author | Kyle Meyer <kyle@kyleam.com> | 2019-07-23 23:10:09 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2019-07-23 23:24:13 -0400 |
commit | be47489c31982de3beb16c0e49ec20b57c2ff170 (patch) | |
tree | c89ba4354af414501ca89f15d831644a4a4f3e1a | |
parent | 1c3eae8f3736cd23a86c17254add59054e54fbed (diff) | |
download | org-mode-be47489c31982de3beb16c0e49ec20b57c2ff170.tar.gz |
org-gnus: Add note about integer overflow guard
* lisp/org-gnus.el (org-gnus-follow-link): Add compatibility note to
code that guards against integer overflow.
Emacs's 7e294d55e1 (Remove some obsolete integer overflow handling,
2019-07-22) removes this, but we can't port that for compatibility
reasons.
-rw-r--r-- | lisp/org-gnus.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org-gnus.el b/lisp/org-gnus.el index 2cb2766..9e07500 100644 --- a/lisp/org-gnus.el +++ b/lisp/org-gnus.el @@ -243,7 +243,9 @@ If `org-store-link' was called with a prefix arg the meaning of (let ((articles 1) group-opened) (while (and (not group-opened) - ;; Stop on integer overflows. + ;; Stop on integer overflows. Note: We + ;; can drop this once we require at least + ;; Emacs 27, which supports bignums. (> articles 0)) (setq group-opened (gnus-group-read-group articles t group)) (setq articles (if (< articles 16) |