summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2010-12-20 12:28:33 -0700
committerDan Davison <dandavison7@gmail.com>2010-12-21 14:19:25 +0000
commit4e146a5ac22b0de78b9ae8e6cb2309a632d7a0b7 (patch)
treee7348432774b4c1492038ef86673685c667c32ec
parente030d95ddb226542c9c01c15fefa7041b2270ef2 (diff)
downloadorg-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.el16
1 files changed, 7 insertions, 9 deletions
diff --git a/lisp/ob.el b/lisp/ob.el
index 671fef3..7207a10 100644
--- a/lisp/ob.el
+++ b/lisp/ob.el
@@ -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)