From 122bf29974b34b8c3342d068497e6726a9023e09 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 3 Mar 2018 10:07:21 +0100 Subject: [PATCH] ob-core: Tiny refactoring * lisp/ob-core.el (org-babel-execute-src-block): Tiny refactoring. Keep lines under 80 columns. --- lisp/ob-core.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index a948ea79f..fd8e5c7bd 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -703,15 +703,15 @@ block." (list (list r)) r))) (let ((file (cdr (assq :file params))) - (result-graphics (member "graphics" (cdr (assq :result-params params))))) + (result-graphics + (member "graphics" (cdr (assq :result-params params))))) ;; If non-empty result and :file then write to :file. - (when file - ;; 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))))))) + ;; Handle :results graphics :file case. Don't write + ;; result to file if result is graphics. + (when (and file result (not result-graphics)) + (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 -- 2.11.4.GIT