From 39bd69b08d22dc734c9cb8b8f03445ee6eb76baa Mon Sep 17 00:00:00 2001 From: stardiviner Date: Fri, 2 Mar 2018 14:01:01 +0800 Subject: [PATCH] * ob-core.el: (org-babel-execute-src-block) handle :results graphics :file case. Don't write result to file if result is graphics. --- lisp/ob-core.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 6af10dc59..a948ea79f 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -702,13 +702,16 @@ block." (not (listp r))) (list (list 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. (when file - (when result - (with-temp-file file - (insert (org-babel-format-result - result (cdr (assq :sep params)))))) + ;; handle :results graphics :file case. don't write result to file if result is graphics. + (unless result-graphics + (when result + (with-temp-file file + (insert (org-babel-format-result + result (cdr (assq :sep params))))))) (setq result file)) ;; Possibly perform post process provided its ;; appropriate. Dynamically bind "*this*" to the