forked from mirrors/org-mode
org-footnote: Use a simpler method to generate random labels.
* lisp/org-footnote.el (org-footnote-new): Improve generation of random labels.
This commit is contained in:
parent
56bbacfd89
commit
f1dcbfe79c
|
@ -465,8 +465,7 @@ or new, let the user edit the definition of the footnote."
|
||||||
((member org-footnote-auto-label '(t plain))
|
((member org-footnote-auto-label '(t plain))
|
||||||
propose)
|
propose)
|
||||||
((equal org-footnote-auto-label 'random)
|
((equal org-footnote-auto-label 'random)
|
||||||
(require 'org-id)
|
(format "fn:%x" (random #x100000000)))
|
||||||
(substring (org-id-uuid) 0 8))
|
|
||||||
(t
|
(t
|
||||||
(org-icompleting-read
|
(org-icompleting-read
|
||||||
"Label (leave empty for anonymous): "
|
"Label (leave empty for anonymous): "
|
||||||
|
|
Loading…
Reference in a new issue