From 1913f3f50c476f7aeb6129b7c0d340ed80e5d513 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 6 Aug 2011 11:52:26 +0200 Subject: [PATCH] org-footnote: allow inserting inlined footnotes at column 0 * lisp/org-footnote.el (org-footnote-new): only forbid non-inlined footnotes at column 0, as only them can be confused with a footnote definition. --- lisp/org-footnote.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/org-footnote.el b/lisp/org-footnote.el index b566ef75d..93b882958 100644 --- a/lisp/org-footnote.el +++ b/lisp/org-footnote.el @@ -422,7 +422,7 @@ This command prompts for a label. If this is a label referencing an existing label, only insert the label. If the footnote label is empty or new, let the user edit the definition of the footnote." (interactive) - (unless (and (not (bolp)) (org-footnote-in-valid-context-p)) + (unless (org-footnote-in-valid-context-p) (error "Cannot insert a footnote here")) (let* ((lbls (and (not (equal org-footnote-auto-label 'random)) (org-footnote-all-labels))) @@ -441,6 +441,8 @@ or new, let the user edit the definition of the footnote." (mapcar 'list lbls) nil nil (if (eq org-footnote-auto-label 'confirm) propose nil))))))) (cond + ((and label (bolp) (not org-footnote-define-inline)) + (error "Cannot create a non-inlined footnote at left margin")) ((not label) (insert "[fn:: ]") (backward-char 1))