Преглед на файлове

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>
Nicolas Goaziou преди 9 години
родител
ревизия
54c5847385
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      lisp/org-footnote.el

+ 1 - 1
lisp/org-footnote.el

@@ -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