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)) (list (list result)) result))
(funcall cmd body params))) (funcall cmd body params)))
;; if non-empty result and :file then write to :file ;; if non-empty result and :file then write to :file
(flet ((echo-res (result) (when (cdr (assoc :file params))
(if (stringp result) result (format "%S" result)))) (when result
(when (cdr (assoc :file params)) (with-temp-file (cdr (assoc :file params))
(when result (insert
(with-temp-file (cdr (assoc :file params)) (org-babel-format-result
(insert result (cdr (assoc :sep (nth 2 info)))))))
(org-babel-format-result (setq result (cdr (assoc :file params))))
result (cdr (assoc :sep (nth 2 info)))))))
(setq result (cdr (assoc :file params)))))
(org-babel-insert-result (org-babel-insert-result
result result-params info new-hash indent lang) result result-params info new-hash indent lang)
(run-hooks 'org-babel-after-execute-hook) (run-hooks 'org-babel-after-execute-hook)