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))