tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox-org: Remove attr_backend keywords 

* lisp/ox-org.el (org-org-identity): Since back-end specific keywords
  are stripped from output, also remove attr_backend keywords.
This commit is contained in:
Nicolas Goaziou 2013-12-15 15:17:24 +01:00
parent 18d3057e62
commit 29c02c3810
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ox-org.el
View File

@ -114,7 +114,10 @@ setting of `org-html-htmlize-output-type' is 'css."
(defun org-org-identity (blob contents info)
"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 t))
(let ((case-fold-search t))
(replace-regexp-in-string
"^[ \t]*#\\+ATTR_[-_A-Za-z0-9]+:\\(?: .*\\)?\n" ""
(org-export-expand blob contents t))))
(defun org-org-headline (headline contents info)
"Transcode HEADLINE element back into Org syntax.