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

ox-org: Update wrt `org-element-block-name-alist' change

Browse source 
* lisp/ox-org.el (org-org-keyword): Do not check for keywords
  targeting other export back-ends since
  `org-element-block-name-alist' doesn't contain such information
  anymore.
This commit is contained in:
Nicolas Goaziou 2014-08-08 10:34:34 +02:00
parent c7a2024f65
commit fe133aadca
1 changed files with 4 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/ox-org.el
View file

@ -135,19 +135,11 @@ CONTENTS is its contents, as a string or nil. INFO is ignored."
(defun org-org-keyword (keyword contents info) (defun org-org-keyword (keyword contents info)
"Transcode KEYWORD element back into Org syntax. "Transcode KEYWORD element back into Org syntax.
CONTENTS is nil. INFO is ignored. This function ignores CONTENTS is nil. INFO is ignored."
keywords targeted at other export back-ends."
(let ((key (org-element-property :key keyword))) (let ((key (org-element-property :key keyword)))
(unless (or (member key (unless (member key
(mapcar '("AUTHOR" "CREATOR" "DATE" "DESCRIPTION" "EMAIL" "KEYWORDS"
(lambda (block-cons) "OPTIONS" "TITLE"))
(and (eq (cdr block-cons)
'org-element-export-block-parser)
(car block-cons)))
org-element-block-name-alist))
(member key
'("AUTHOR" "CREATOR" "DATE" "DESCRIPTION" "EMAIL"
"KEYWORDS" "OPTIONS" "TITLE")))
(org-element-keyword-interpreter keyword nil)))) (org-element-keyword-interpreter keyword nil))))
(defun org-org-template (contents info) (defun org-org-template (contents info)