ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Nicolas Goaziou 2011-08-06 11:52:26 +02:00
parent 795b7c5ca0
commit 1913f3f50c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-footnote.el
View File

@ -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 existing label, only insert the label. If the footnote label is empty
or new, let the user edit the definition of the footnote." or new, let the user edit the definition of the footnote."
(interactive) (interactive)
(unless (and (not (bolp)) (org-footnote-in-valid-context-p)) (unless (org-footnote-in-valid-context-p)
(error "Cannot insert a footnote here")) (error "Cannot insert a footnote here"))
(let* ((lbls (and (not (equal org-footnote-auto-label 'random)) (let* ((lbls (and (not (equal org-footnote-auto-label 'random))
(org-footnote-all-labels))) (org-footnote-all-labels)))
@ -441,6 +441,8 @@ or new, let the user edit the definition of the footnote."
(mapcar 'list lbls) nil nil (mapcar 'list lbls) nil nil
(if (eq org-footnote-auto-label 'confirm) propose nil))))))) (if (eq org-footnote-auto-label 'confirm) propose nil)))))))
(cond (cond
((and label (bolp) (not org-footnote-define-inline))
(error "Cannot create a non-inlined footnote at left margin"))
((not label) ((not label)
(insert "[fn:: ]") (insert "[fn:: ]")
(backward-char 1)) (backward-char 1))