浏览代码

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.
Nicolas Goaziou 13 年之前
父节点
当前提交
1913f3f50c
共有 1 个文件被更改,包括 3 次插入1 次删除
  1. 3 1
      lisp/org-footnote.el

+ 3 - 1
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))