瀏覽代碼

Fix typos and add customization group for footnotes

Patch by Michael Fornius
Carsten Dominik 15 年之前
父節點
當前提交
0d4883f7de
共有 2 個文件被更改,包括 11 次插入2 次删除
  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