ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* ob-core.el: (org-babel-execute-src-block) handle :results graphics :file case. 

Don't write result to file if result is graphics.
This commit is contained in:
stardiviner 2018-03-02 14:01:01 +08:00
parent 6f976f1947
commit 39bd69b08d
No known key found for this signature in database
GPG Key ID: 1B5DF1C95AE89AC3
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ob-core.el
View File

@ -702,13 +702,16 @@ block."
(not (listp r))) (not (listp r)))
(list (list r)) (list (list r))
r))) r)))
(let ((file (cdr (assq :file params)))) (let ((file (cdr (assq :file params)))
(result-graphics (member "graphics" (cdr (assq :result-params params)))))
;; If non-empty result and :file then write to :file. ;; If non-empty result and :file then write to :file.
(when file (when file
;; handle :results graphics :file case. don't write result to file if result is graphics.
(unless result-graphics
(when result (when result
(with-temp-file file (with-temp-file file
(insert (org-babel-format-result (insert (org-babel-format-result
result (cdr (assq :sep params)))))) result (cdr (assq :sep params)))))))
(setq result file)) (setq result file))
;; Possibly perform post process provided its ;; Possibly perform post process provided its
;; appropriate. Dynamically bind "*this*" to the ;; appropriate. Dynamically bind "*this*" to the