diff options
author | Bastien Guerry <bzg@altern.org> | 2014-05-21 04:22:30 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-05-21 04:22:30 +0200 |
commit | a5686d87786b1d6514ec85959a2188f703346a06 (patch) | |
tree | 823c2e8f4ee16dbb9c95250db60f3fc6496ce4ea | |
parent | a4abd956987513e58bb9f33a33e7aafde9efdb66 (diff) | |
download | org-mode-a5686d87786b1d6514ec85959a2188f703346a06.tar.gz |
ob-R.el: minor code cleanup
* ob-R.el (org-babel-expand-body:R, org-babel-execute:R)
(org-babel-variable-assignments:R)
(org-babel-R-evaluate-session): Don't use "#'" forms.
-rw-r--r-- | lisp/ob-R.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ob-R.el b/lisp/ob-R.el index 7e971c9..a3ae1ec 100644 --- a/lisp/ob-R.el +++ b/lisp/ob-R.el @@ -95,7 +95,7 @@ this variable.") (defun org-babel-expand-body:R (body params &optional graphics-file) "Expand BODY according to PARAMS, return the expanded body." - (mapconcat #'identity + (mapconcat 'identity (append (when (cdr (assoc :prologue params)) (list (cdr (assoc :prologue params)))) @@ -120,7 +120,7 @@ This function is called by `org-babel-execute-src-block'." (full-body (let ((inside (list (org-babel-expand-body:R body params graphics-file)))) - (mapconcat #'identity + (mapconcat 'identity (if graphics-file (append (list (org-babel-R-construct-graphics-device-call @@ -163,7 +163,7 @@ This function is called by `org-babel-execute-src-block'." (defun org-babel-variable-assignments:R (params) "Return list of R statements assigning the block's variables." - (let ((vars (mapcar #'cdr (org-babel-get-header params :var)))) + (let ((vars (mapcar 'cdr (org-babel-get-header params :var)))) (mapcar (lambda (pair) (org-babel-R-assign-elisp @@ -368,7 +368,7 @@ last statement in BODY, as elisp." column-names-p))) (output (mapconcat - #'org-babel-chomp + 'org-babel-chomp (butlast (delq nil (mapcar @@ -380,7 +380,7 @@ last statement in BODY, as elisp." (substring line (match-end 1)) line)) (org-babel-comint-with-output (session org-babel-R-eoe-output) - (insert (mapconcat #'org-babel-chomp + (insert (mapconcat 'org-babel-chomp (list body org-babel-R-eoe-indicator) "\n")) (inferior-ess-send-input)))))) "\n")))) |