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
This commit is contained in:
Mike Ivanov 2019-09-07 11:03:46 -07:00 committed by Nicolas Goaziou
parent 6f32e7af88
commit 02f506baf8
1 changed files with 1 additions and 1 deletions

View File

@ -107,7 +107,7 @@ a property list containing the parameters of the block."
(point-min) (point-max))))) (point-min) (point-max)))))
(cdr (assq :package params))))))) (cdr (assq :package params)))))))
(org-babel-result-cond (cdr (assq :result-params params)) (org-babel-result-cond (cdr (assq :result-params params))
result (org-strip-quotes result)
(condition-case nil (condition-case nil
(read (org-babel-lisp-vector-to-list result)) (read (org-babel-lisp-vector-to-list result))
(error result)))) (error result))))