From fe133aadca22e2c0d102cccca9dca40c6fb209a0 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 8 Aug 2014 10:34:34 +0200 Subject: [PATCH] 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. --- lisp/ox-org.el | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) diff --git a/lisp/ox-org.el b/lisp/ox-org.el index 9ccbbf3aa..e69163f41 100644 --- a/lisp/ox-org.el +++ b/lisp/ox-org.el @@ -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) -- 2.11.4.GIT