diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-12-20 12:28:33 -0700 |
---|---|---|
committer | Dan Davison <dandavison7@gmail.com> | 2010-12-21 14:19:25 +0000 |
commit | 4e146a5ac22b0de78b9ae8e6cb2309a632d7a0b7 (patch) | |
tree | e7348432774b4c1492038ef86673685c667c32ec | |
parent | e030d95ddb226542c9c01c15fefa7041b2270ef2 (diff) | |
download | org-mode-4e146a5ac22b0de78b9ae8e6cb2309a632d7a0b7.tar.gz |
ob: a little more refactoring
* lisp/ob.el (org-babel-execute-src-block): Removed unused flet function.
-rw-r--r-- | lisp/ob.el | 16 |
1 files changed, 7 insertions, 9 deletions
@@ -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) |