mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-15 21:39:58 +00:00
Code Releases Activity

Merge branch 'maint'

Browse source
This commit is contained in:
Nicolas Goaziou 2013-04-26 15:54:03 +02:00
parent 74fda6f64d eba04bfb3c
commit 3799de774e
2 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ox-org.el
View file

@ -119,7 +119,7 @@ setting of `org-html-htmlize-output-type' is 'css."
(defun org-org-identity (blob contents info) (defun org-org-identity (blob contents info)
"Transcode BLOB element or object back into Org syntax. "Transcode BLOB element or object back into Org syntax.
CONTENTS is its contents, as a string or nil. INFO is ignored." CONTENTS is its contents, as a string or nil. INFO is ignored."
(org-export-expand blob contents)) (org-export-expand blob contents t))
(defun org-org-headline (headline contents info) (defun org-org-headline (headline contents info)
"Transcode HEADLINE element back into Org syntax. "Transcode HEADLINE element back into Org syntax.

16
lisp/ox.el
View file

@ -2246,13 +2246,19 @@ according to export options INFO, stored as a plist."
(table (plist-get info :with-tables)) (table (plist-get info :with-tables))
(otherwise t))) (otherwise t)))
(defun org-export-expand (blob contents) (defun org-export-expand (blob contents &optional with-affiliated)
"Expand a parsed element or object to its original state. "Expand a parsed element or object to its original state.
BLOB is either an element or an object. CONTENTS is its BLOB is either an element or an object. CONTENTS is its
contents, as a string or nil." contents, as a string or nil.
(funcall
(intern (format "org-element-%s-interpreter" (org-element-type blob))) When optional argument WITH-AFFILIATED is non-nil, add affiliated
blob contents)) keywords before output."
(let ((type (org-element-type blob)))
(concat (and with-affiliated (memq type org-element-all-elements)
(org-element--interpret-affiliated-keywords blob))
(funcall (intern (format "org-element-%s-interpreter" type))
blob contents))))
(defun org-export-ignore-element (element info) (defun org-export-ignore-element (element info)
"Add ELEMENT to `:ignore-list' in INFO. "Add ELEMENT to `:ignore-list' in INFO.