forked from mirrors/org-mode
org-footnote: Don't offer to create a footnote when it already exists
* lisp/org-footnote.el (org-footnote-goto-definition): This patch makes sure the function says when a definition has been found. Thus, moving from the reference to the definition doesn't offer to create the latter again.
This commit is contained in:
parent
c7abf641eb
commit
c00fe037be
|
@ -343,7 +343,8 @@ If no footnote is found, return nil."
|
||||||
((org-footnote-at-definition-p)))))))))
|
((org-footnote-at-definition-p)))))))))
|
||||||
|
|
||||||
(defun org-footnote-goto-definition (label)
|
(defun org-footnote-goto-definition (label)
|
||||||
"Move point to the definition of the footnote LABEL."
|
"Move point to the definition of the footnote LABEL.
|
||||||
|
Return a non-nil value when a definition has been found."
|
||||||
(interactive "sLabel: ")
|
(interactive "sLabel: ")
|
||||||
(org-mark-ring-push)
|
(org-mark-ring-push)
|
||||||
(let ((def (org-footnote-get-definition label)))
|
(let ((def (org-footnote-get-definition label)))
|
||||||
|
@ -354,7 +355,8 @@ If no footnote is found, return nil."
|
||||||
(goto-char (match-end 0))
|
(goto-char (match-end 0))
|
||||||
(org-show-context 'link-search)
|
(org-show-context 'link-search)
|
||||||
(when (org-mode-p)
|
(when (org-mode-p)
|
||||||
(message "Edit definition and go back with `C-c &' or, if unique, with `C-c C-c'.")))))
|
(message "Edit definition and go back with `C-c &' or, if unique, with `C-c C-c'."))
|
||||||
|
t)))
|
||||||
|
|
||||||
(defun org-footnote-goto-previous-reference (label)
|
(defun org-footnote-goto-previous-reference (label)
|
||||||
"Find the first closest (to point) reference of footnote with label LABEL."
|
"Find the first closest (to point) reference of footnote with label LABEL."
|
||||||
|
|
Loading…
Reference in a new issue