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

ob: a little more refactoring 

* lisp/ob.el (org-babel-execute-src-block): Removed unused flet function.
This commit is contained in:
Eric Schulte 2010-12-20 12:28:33 -07:00 committed by Dan Davison
parent e030d95ddb
commit 4e146a5ac2
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/ob.el
View File

@ -412,15 +412,13 @@ block."
(list (list result)) result))
(funcall cmd body params)))
;; if non-empty result and :file then write to :file
(flet ((echo-res (result)
(if (stringp result) result (format "%S" result))))
(when (cdr (assoc :file params))
(when result
(with-temp-file (cdr (assoc :file params))
(insert
(org-babel-format-result
result (cdr (assoc :sep (nth 2 info)))))))
(setq result (cdr (assoc :file params)))))
(when (cdr (assoc :file params))
(when result
(with-temp-file (cdr (assoc :file params))
(insert
(org-babel-format-result
result (cdr (assoc :sep (nth 2 info)))))))
(setq result (cdr (assoc :file params))))
(org-babel-insert-result
result result-params info new-hash indent lang)
(run-hooks 'org-babel-after-execute-hook)