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

More forbidden blocks for lists and footnotes 

* lisp/org-footnote.el (org-footnote-forbidden-blocks): add missing
  exporter specific blocks.
* lisp/org-list.el (org-list-forbidden-blocks): ditto.
This commit is contained in:
Nicolas Goaziou 2011-07-10 10:33:25 +02:00
parent 3018219cca
commit dc85f45194
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-footnote.el
View File

@ -75,10 +75,9 @@
(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.")
(defvar org-footnote-forbidden-blocks '("example" "verse" "src" (defvar org-footnote-forbidden-blocks '("example" "verse" "src" "ascii" "beamer"
"latex" "html" "docbook") "docbook" "html" "latex" "odt")
"Names of blocks where footnotes are not allowed. "Names of blocks where footnotes are not allowed.")
Names must be in lower case.")
(defgroup org-footnote nil (defgroup org-footnote nil
"Footnotes in Org-mode." "Footnotes in Org-mode."

3
lisp/org-list.el
View File

@ -348,7 +348,8 @@ list, obtained by prompting the user."
(list (symbol :tag "Major mode") (list (symbol :tag "Major mode")
(string :tag "Format")))) (string :tag "Format"))))
(defvar org-list-forbidden-blocks '("example" "verse" "src" "latex" "html" "docbook") (defvar org-list-forbidden-blocks '("example" "verse" "src" "ascii" "beamer"
"docbook" "html" "latex" "odt")
"Names of blocks where lists are not allowed. "Names of blocks where lists are not allowed.
Names must be in lower case.") Names must be in lower case.")