diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-08-08 10:34:34 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-08-08 10:34:34 +0200 |
commit | fe133aadca22e2c0d102cccca9dca40c6fb209a0 (patch) | |
tree | bd0384364bf20d03328e15a014626f7a3cc34a5a | |
parent | c7a2024f65f36b4805ed9c69906c0b6614774607 (diff) | |
download | org-mode-fe133aadca22e2c0d102cccca9dca40c6fb209a0.tar.gz |
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.
-rw-r--r-- | lisp/ox-org.el | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/lisp/ox-org.el b/lisp/ox-org.el index 9ccbbf3..e69163f 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) |