diff options
author | Mike Ivanov <mike@daatsys.com> | 2019-09-07 11:03:46 -0700 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-09-16 18:38:16 +0200 |
commit | 02f506baf8f35f10338c0a23bb69b7ef0c535d20 (patch) | |
tree | 5832f04f98b92412e36abd4311e5f33004a6f266 | |
parent | 6f32e7af88805441c1261e16f729172639d8b3fa (diff) | |
download | org-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.el | 2 |
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)))) |