Browse Source

Fix typos and add customization group for footnotes

Patch by Michael Fornius
Carsten Dominik 15 years ago
parent
commit
0d4883f7de
2 changed files with 11 additions and 2 deletions
  1. 4 0
      lisp/ChangeLog
  2. 7 2
      lisp/org-footnote.el

+ 4 - 0
lisp/ChangeLog

@@ -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.
 
 

+ 7 - 2
lisp/org-footnote.el

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