Browse Source

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.
Nicolas Goaziou 10 years ago
parent
commit
fe133aadca
1 changed files with 4 additions and 12 deletions
  1. 4 12
      lisp/ox-org.el

+ 4 - 12
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)