mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-17 09:06:28 +00:00
Code Releases Activity

org-element: Small modification to `org-element-block-name-alist'

Browse source 
* contrib/lisp/org-element.el (org-element-block-name-alist): Directly
  store parser's name in CDR.
This commit is contained in:
Nicolas Goaziou 2012-05-05 12:41:32 +02:00
parent 761add3580
commit 5cbc56a175
1 changed files with 17 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
contrib/lisp/org-element.el
View file

@ -2841,20 +2841,20 @@ regexp matching one object can also match the other object.")
"List of recursive object types.")
(defconst org-element-block-name-alist
'(("ASCII" . export-block)
("CENTER" . center-block)
("COMMENT" . comment-block)
("DOCBOOK" . export-block)
("EXAMPLE" . example-block)
("HTML" . export-block)
("LATEX" . export-block)
("ODT" . export-block)
("QUOTE" . quote-block)
("SRC" . src-block)
("VERSE" . verse-block))
"Alist between block names and their element type.
Any block whose name has no association in the current list has
a `special-block' type.")
'(("ASCII" . org-element-export-block-parser)
("CENTER" . org-element-center-block-parser)
("COMMENT" . org-element-comment-block-parser)
("DOCBOOK" . org-element-export-block-parser)
("EXAMPLE" . org-element-example-block-parser)
("HTML" . org-element-export-block-parser)
("LATEX" . org-element-export-block-parser)
("ODT" . org-element-export-block-parser)
("QUOTE" . org-element-quote-block-parser)
("SRC" . org-element-src-block-parser)
("VERSE" . org-element-verse-block-parser))
"Alist between block names and the associated parsing function.
Names must be uppercase. Any block whose name has no association
is parsed with `org-element-special-block-parser'.")
(defconst org-element-affiliated-keywords
'("ATTR_ASCII" "ATTR_DOCBOOK" "ATTR_HTML" "ATTR_LATEX" "ATTR_ODT" "CAPTION"
@ -3064,14 +3064,14 @@ element it has to parse."
(org-element-planning-parser)))
;; Blocks.
((when (looking-at "[ \t]*#\\+BEGIN_\\([-A-Za-z0-9]+\\)\\(?: \\|$\\)")
(let ((name (upcase (match-string 1))) type)
(let ((name (upcase (match-string 1))) parser)
(cond
((not (save-excursion
(re-search-forward
(format "^[ \t]*#\\+END_%s\\(?: \\|$\\)" name) nil t)))
(org-element-paragraph-parser))
((setq type (assoc name org-element-block-name-alist))
(funcall (intern (format "org-element-%s-parser" (cdr type)))))
((setq parser (assoc name org-element-block-name-alist))
(funcall (cdr parser)))
(t (org-element-special-block-parser))))))
;; Inlinetask.
((org-at-heading-p) (org-element-inlinetask-parser raw-secondary-p))