org-footnote: Use a simpler method to generate random labels.

* lisp/org-footnote.el (org-footnote-new): Improve generation of random labels.
2015-01-18 23:46:02 -05:00 · 2015-01-18 23:46:02 -05:00 · f1dcbfe79c
parent 56bbacfd89
commit f1dcbfe79c
1 changed files with 1 additions and 2 deletions
--- a/lisp/org-footnote.el
+++ b/lisp/org-footnote.el
@ -465,8 +465,7 @@ or new, let the user edit the definition of the footnote."
 	    ((member org-footnote-auto-label '(t plain))
 	     propose)
 	    ((equal org-footnote-auto-label 'random)
-	     (require 'org-id)
-	     (substring (org-id-uuid) 0 8))
+	     (format "fn:%x" (random #x100000000)))
 	    (t
 	     (org-icompleting-read
 	      "Label (leave empty for anonymous): "