From c00fe037be229c643dd0ab10643d178ff2f9da1b Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Thu, 29 Sep 2011 15:30:46 +0200 Subject: [PATCH] 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. --- lisp/org-footnote.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index 1cad895c5..46a2c431a 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -343,7 +343,8 @@ If no footnote is found, return nil." ((org-footnote-at-definition-p))))))))) (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: ") (org-mark-ring-push) (let ((def (org-footnote-get-definition label))) @@ -354,7 +355,8 @@ If no footnote is found, return nil." (goto-char (match-end 0)) (org-show-context 'link-search) (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) "Find the first closest (to point) reference of footnote with label LABEL."