diff options
| author | Rasmus <rasmus@gmx.us> | 2015-03-29 14:26:59 +0200 |
|---|---|---|
| committer | Rasmus <rasmus@gmx.us> | 2015-03-29 15:00:33 +0200 |
| commit | 564673b7668c438aa2c3c4925d9200cdc43db07f (patch) | |
| tree | 7171c9bb8f1b4dd37a0ca4173e68f018a964a556 | |
| parent | f6bd2a9cb42669829a22d1a7703701872a984fc5 (diff) | |
| download | org-mode-564673b7668c438aa2c3c4925d9200cdc43db07f.tar.gz | |
ox-org: Remove #+DESCRIPTION and #+KEYWORD support
* ox-org.el (org-org-keyword): Remove #+KEYWORD and #+DESCRIPTION
(org-org-template): Remove explicit #+KEYWORD and #+DESCRIPTION
support.
| -rw-r--r-- | lisp/ox-org.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lisp/ox-org.el b/lisp/ox-org.el index 658983e..c52cbf2 100644 --- a/lisp/ox-org.el +++ b/lisp/ox-org.el @@ -136,8 +136,7 @@ CONTENTS is its contents, as a string or nil. INFO is ignored." CONTENTS is nil. INFO is ignored." (let ((key (org-element-property :key keyword))) (unless (member key - '("AUTHOR" "CREATOR" "DATE" "DESCRIPTION" "EMAIL" "KEYWORDS" - "OPTIONS" "TITLE")) + '("AUTHOR" "CREATOR" "DATE" "EMAIL" "OPTIONS" "TITLE")) (org-element-keyword-interpreter keyword nil)))) (defun org-org-link (link contents info) @@ -179,10 +178,6 @@ as a communication channel." (and (plist-get info :with-creator) (org-string-nw-p (plist-get info :creator)) (format "#+CREATOR: %s\n" (plist-get info :creator))) - (and (org-string-nw-p (plist-get info :keywords)) - (format "#+KEYWORDS: %s\n" (plist-get info :keywords))) - (and (org-string-nw-p (plist-get info :description)) - (format "#+DESCRIPTION: %s\n" (plist-get info :description))) contents)) (defun org-org-section (section contents info) |