From 58f7e4382101b555fe7d6af460bfa2fb6208adb5 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 17 Apr 2013 22:44:28 +0200 Subject: [PATCH] ox-org.el: Fix some docstrings * lisp/ox-org.el (org-org-identity): Fix docstring. Tiny refactoring. (org-org-headline, org-org-keyword): Fix docstring. --- lisp/ox-org.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/ox-org.el b/lisp/ox-org.el index 18925c556..f55b5dc67 100644 --- a/lisp/ox-org.el +++ b/lisp/ox-org.el @@ -117,13 +117,13 @@ setting of `org-html-htmlize-output-type' is 'css." (org-open-file (org-org-export-to-org nil s v b)))))))) (defun org-org-identity (blob contents info) - "Transcode BLOB element or object back into Org syntax." - (funcall - (intern (format "org-element-%s-interpreter" (org-element-type blob))) - blob contents)) + "Transcode BLOB element or object back into Org syntax. +CONTENTS is its contents, as a string or nil. INFO is ignored." + (org-export-expand blob contents)) (defun org-org-headline (headline contents info) - "Transcode HEADLINE element back into Org syntax." + "Transcode HEADLINE element back into Org syntax. +CONTENTS is its contents, as a string or nil. INFO is ignored." (unless (plist-get info :with-todo-keywords) (org-element-put-property headline :todo-keyword nil)) (unless (plist-get info :with-tags) @@ -134,7 +134,8 @@ setting of `org-html-htmlize-output-type' is 'css." (defun org-org-keyword (keyword contents info) "Transcode KEYWORD element back into Org syntax. -Ignore keywords targeted at other export back-ends." +CONTENTS is nil. INFO is ignored. This function ignores +keywords targeted at other export back-ends." (unless (member (org-element-property :key keyword) (mapcar (lambda (block-cons) -- 2.11.4.GIT