forked from mirrors/org-mode
ox-org: Update wrt `org-element-block-name-alist' change
* 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:
parent
c7a2024f65
commit
fe133aadca
|
@ -135,19 +135,11 @@ CONTENTS is its contents, as a string or nil. INFO is ignored."
|
|||
|
||||
(defun org-org-keyword (keyword contents info)
|
||||
"Transcode KEYWORD element back into Org syntax.
|
||||
CONTENTS is nil. INFO is ignored. This function ignores
|
||||
keywords targeted at other export back-ends."
|
||||
CONTENTS is nil. INFO is ignored."
|
||||
(let ((key (org-element-property :key keyword)))
|
||||
(unless (or (member key
|
||||
(mapcar
|
||||
(lambda (block-cons)
|
||||
(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")))
|
||||
(unless (member key
|
||||
'("AUTHOR" "CREATOR" "DATE" "DESCRIPTION" "EMAIL" "KEYWORDS"
|
||||
"OPTIONS" "TITLE"))
|
||||
(org-element-keyword-interpreter keyword nil))))
|
||||
|
||||
(defun org-org-template (contents info)
|
||||
|
|
Loading…
Reference in a new issue