tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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:
Eric Schulte 2013-11-19 09:05:17 -07:00
parent d35233f84a
commit bb97f5cdff
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ob-lisp.el
View File

@ -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))