tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix typos and add customization group for footnotes 

Patch by Michael Fornius
This commit is contained in:
Carsten Dominik 2010-04-27 08:11:03 +02:00
parent 6cb5382669
commit 0d4883f7de
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2010-04-27 Carsten Dominik <carsten.dominik@gmail.com> 2010-04-27 Carsten Dominik <carsten.dominik@gmail.com>
* org-footnote.el (org-footnote): New group.
(org-footnote-section)
(org-footnote-tag-for-non-org-mode-files): Fix typos.
* org-list.el (org-end-of-item-text-before-children): Also do * org-list.el (org-end-of-item-text-before-children): Also do
the right thing at the end of a file. the right thing at the end of a file.

9
lisp/org-footnote.el
View File

@ -65,6 +65,11 @@
(org-re "^\\(\\[\\([0-9]+\\|fn:[-_[:word:]]+\\)\\]\\)") (org-re "^\\(\\[\\([0-9]+\\|fn:[-_[:word:]]+\\)\\]\\)")
"Regular expression matching the definition of a footnote.") "Regular expression matching the definition of a footnote.")
(defgroup org-footnote nil
"Footnotes in Org-mode."
:tag "Org Footnote"
:group 'org)
(defcustom org-footnote-section "Footnotes" (defcustom org-footnote-section "Footnotes"
"Outline heading containing footnote definitions before export. "Outline heading containing footnote definitions before export.
This can be nil, to place footnotes locally at the end of the current This can be nil, to place footnotes locally at the end of the current
@ -75,7 +80,7 @@ automatically, i.e. when creating the footnote, and when sorting the notes.
However, by hand you may place definitions *anywhere*. However, by hand you may place definitions *anywhere*.
If this is a string, during export, all subtrees starting with this If this is a string, during export, all subtrees starting with this
heading will be removed after extracting footnote definitions." heading will be removed after extracting footnote definitions."
:group 'org-footnotes :group 'org-footnote
:type '(choice :type '(choice
(string :tag "Collect footnotes under heading") (string :tag "Collect footnotes under heading")
(const :tag "Define footnotes locally" nil))) (const :tag "Define footnotes locally" nil)))
@ -87,7 +92,7 @@ as in Org-mode. Outside Org-mode, new footnotes are always placed at
the end of the file. When you normalize the notes, any line containing the end of the file. When you normalize the notes, any line containing
only this tag will be removed, a new one will be inserted at the end only this tag will be removed, a new one will be inserted at the end
of the file, followed by the collected and normalized footnotes." of the file, followed by the collected and normalized footnotes."
:group 'org-footnotes :group 'org-footnote
:type 'string) :type 'string)
(defcustom org-footnote-define-inline nil (defcustom org-footnote-define-inline nil