From 539c8044575dcbac6bb33f77f12cff73f74f321c Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Fri, 15 Oct 2010 11:13:14 -0600 Subject: [PATCH] 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 --- lisp/ob-emacs-lisp.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/ob-emacs-lisp.el b/lisp/ob-emacs-lisp.el index efa5a674e..045133555 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)