summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMike Ivanov <mike@daatsys.com>2019-09-07 11:03:46 -0700
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2019-09-16 18:38:16 +0200
commit02f506baf8f35f10338c0a23bb69b7ef0c535d20 (patch)
tree5832f04f98b92412e36abd4311e5f33004a6f266
parent6f32e7af88805441c1261e16f729172639d8b3fa (diff)
downloadorg-mode-02f506baf8f35f10338c0a23bb69b7ef0c535d20.tar.gz
ob-lisp: Strip quotes from result value
* lisp/ob-lisp.el (org-babel-execute:lisp): Make sure that when a singular string value is returned, it has no quotation marks around it. Before this change, the code below would produce an incorrect result: #+BEGIN_SRC lisp :results file "plot.png" #+END_SRC #+RESULTS: [[file:"plot.png"]] After the change: #+BEGIN_SRC lisp :results file "plot.png" #+END_SRC #+RESULTS: [[file:plot.png]] TINYCHANGE
-rw-r--r--lisp/ob-lisp.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ob-lisp.el b/lisp/ob-lisp.el
index e717fc3..398ed21 100644
--- a/lisp/ob-lisp.el
+++ b/lisp/ob-lisp.el
@@ -107,7 +107,7 @@ a property list containing the parameters of the block."
(point-min) (point-max)))))
(cdr (assq :package params)))))))
(org-babel-result-cond (cdr (assq :result-params params))
- result
+ (org-strip-quotes result)
(condition-case nil
(read (org-babel-lisp-vector-to-list result))
(error result))))