org-footnote: Fix error on 32 bits system

* lisp/org-footnote.el (org-footnote-new): Use a value in the 32-bit range.

Reported-by: Sam Halliday <sam.halliday@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/103184>
This commit is contained in:
Nicolas Goaziou 2015-11-30 16:08:00 +01:00
parent d85ddfba0d
commit 54c5847385
1 changed files with 1 additions and 1 deletions

View File

@ -533,7 +533,7 @@ or new, let the user edit the definition of the footnote."
(label
(org-footnote-normalize-label
(if (eq org-footnote-auto-label 'random)
(format "fn:%x" (random #x100000000))
(format "fn:%x" (random most-positive-fixnum))
(let ((propose (org-footnote-unique-label all)))
(if (memq org-footnote-auto-label '(t plain)) propose
(org-icompleting-read