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

ox: Fix failing tests 

* lisp/ox.el (org-export-as): Add missing arguments to
  `org-export--get-export-attributes'.
This commit is contained in:
Nicolas Goaziou 2015-11-05 12:07:48 +01:00
parent 47573133a6
commit 3b8ebff351
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ox.el
View File

@ -2943,7 +2943,8 @@ Return code as a string."
;; attributes, unavailable in its copy. ;; attributes, unavailable in its copy.
(let* ((org-export-current-backend (org-export-backend-name backend)) (let* ((org-export-current-backend (org-export-backend-name backend))
(info (org-combine-plists (info (org-combine-plists
(org-export--get-export-attributes) (org-export--get-export-attributes
backend subtreep visible-only body-only)
(org-export--get-buffer-attributes))) (org-export--get-buffer-attributes)))
(parsed-keywords (parsed-keywords
(delq nil (delq nil
@ -3031,9 +3032,7 @@ Return code as a string."
(plist-get info :filter-parse-tree) tree info)) (plist-get info :filter-parse-tree) tree info))
;; Now tree is complete, compute its properties and add them ;; Now tree is complete, compute its properties and add them
;; to communication channel. ;; to communication channel.
(setq info (setq info (org-export--collect-tree-properties tree info))
(org-combine-plists
info (org-export--collect-tree-properties tree info)))
;; Eventually transcode TREE. Wrap the resulting string into ;; Eventually transcode TREE. Wrap the resulting string into
;; a template. ;; a template.
(let* ((body (org-element-normalize-string (let* ((body (org-element-normalize-string