summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2010-10-15 11:13:14 -0600
committerDan Davison <davison@stats.ox.ac.uk>2010-10-21 13:05:58 +0100
commit539c8044575dcbac6bb33f77f12cff73f74f321c (patch)
treee6ea8e13489bcecebcccb8da9b1cfac6772164b7
parentc2dce939e8751cd7a9c75e3a429f991fa0a2bd88 (diff)
downloadorg-mode-539c8044575dcbac6bb33f77f12cff73f74f321c.tar.gz
ob-emacs-lisp: whitespace cleanup <=80 columns
* lisp/ob-emacs-lisp.el (org-babel-expand-body:emacs-lisp): whitespace (org-babel-execute:emacs-lisp): whitespace
-rw-r--r--lisp/ob-emacs-lisp.el12
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/ob-emacs-lisp.el b/lisp/ob-emacs-lisp.el
index efa5a67..0451335 100644
--- a/lisp/ob-emacs-lisp.el
+++ b/lisp/ob-emacs-lisp.el
@@ -38,14 +38,16 @@
(defun org-babel-expand-body:emacs-lisp (body params &optional processed-params)
"Expand BODY according to PARAMS, return the expanded body."
- (let* ((processed-params (or processed-params (org-babel-process-params params)))
+ (let* ((processed-params (or processed-params
+ (org-babel-process-params params)))
(vars (nth 1 processed-params))
(result-params (nth 2 processed-params))
(print-level nil) (print-length nil)
(body (if (> (length vars) 0)
(concat "(let ("
(mapconcat
- (lambda (var) (format "%S" (print `(,(car var) ',(cdr var)))))
+ (lambda (var)
+ (format "%S" (print `(,(car var) ',(cdr var)))))
vars "\n ")
")\n" body ")")
body)))
@@ -61,8 +63,10 @@
(eval (read (format "(progn %s)"
(org-babel-expand-body:emacs-lisp
body params processed-params))))
- (org-babel-pick-name (nth 4 processed-params) (cdr (assoc :colnames params)))
- (org-babel-pick-name (nth 5 processed-params) (cdr (assoc :rownames params)))))))
+ (org-babel-pick-name (nth 4 processed-params)
+ (cdr (assoc :colnames params)))
+ (org-babel-pick-name (nth 5 processed-params)
+ (cdr (assoc :rownames params)))))))
(provide 'ob-emacs-lisp)