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

ob-core: Tiny refactoring 

* lisp/ob-core.el (org-babel-execute-src-block): Tiny refactoring.
  Keep lines under 80 columns.
This commit is contained in:
Nicolas Goaziou 2018-03-03 10:07:21 +01:00
parent ca5206eed5
commit 122bf29974
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/ob-core.el
View File

@ -703,15 +703,15 @@ block."
(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))))) (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 ;; Handle :results graphics :file case. Don't write
;; handle :results graphics :file case. don't write result to file if result is graphics. ;; result to file if result is graphics.
(unless result-graphics (when (and file result (not result-graphics))
(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