forked from mirrors/org-mode
org-footnote: remove an unused variable
* lisp/org-footnote.el (org-footnote-label-history): removed variable (org-footnote-new): remove call to that variable.
This commit is contained in:
parent
d3b088e017
commit
a41541c033
|
@ -416,10 +416,6 @@ The returns the firsts fn:N labels that is currently not used."
|
||||||
(incf cnt))
|
(incf cnt))
|
||||||
(format fmt cnt)))
|
(format fmt cnt)))
|
||||||
|
|
||||||
(defvar org-footnote-label-history nil
|
|
||||||
"History of footnote labels entered in current buffer.")
|
|
||||||
(make-variable-buffer-local 'org-footnote-label-history)
|
|
||||||
|
|
||||||
(defun org-footnote-new ()
|
(defun org-footnote-new ()
|
||||||
"Insert a new footnote.
|
"Insert a new footnote.
|
||||||
This command prompts for a label. If this is a label referencing an
|
This command prompts for a label. If this is a label referencing an
|
||||||
|
@ -443,8 +439,7 @@ or new, let the user edit the definition of the footnote."
|
||||||
(completing-read
|
(completing-read
|
||||||
"Label (leave empty for anonymous): "
|
"Label (leave empty for anonymous): "
|
||||||
(mapcar 'list labels) nil nil
|
(mapcar 'list labels) nil nil
|
||||||
(if (eq org-footnote-auto-label 'confirm) propose nil)
|
(if (eq org-footnote-auto-label 'confirm) propose nil)))))))
|
||||||
'org-footnote-label-history))))))
|
|
||||||
(cond
|
(cond
|
||||||
((not label)
|
((not label)
|
||||||
(insert "[fn:: ]")
|
(insert "[fn:: ]")
|
||||||
|
|
Loading…
Reference in New Issue