mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 21:37:50 +00:00
rm redundant value/output splitting of lisp blocks
* lisp/ob-lisp.el (org-babel-execute:lisp): The car/cadr are now taken previously in the function and need not be taken within the call to `org-babel-result-cond'.
This commit is contained in:
parent
d35233f84a
commit
bb97f5cdff
|
@ -91,10 +91,10 @@ current directory string."
|
|||
(point-min) (point-max)))))
|
||||
(cdr (assoc :package params)))))))
|
||||
(org-babel-result-cond (cdr (assoc :result-params params))
|
||||
(car result)
|
||||
result
|
||||
(condition-case nil
|
||||
(read (org-babel-lisp-vector-to-list (cadr result)))
|
||||
(error (cadr result)))))
|
||||
(read (org-babel-lisp-vector-to-list result))
|
||||
(error result))))
|
||||
(org-babel-pick-name (cdr (assoc :colname-names params))
|
||||
(cdr (assoc :colnames params)))
|
||||
(org-babel-pick-name (cdr (assoc :rowname-names params))
|
||||
|
|
Loading…
Reference in a new issue