mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 04:37:57 +00:00
fix typo
* lisp/ob-lisp.el (org-babel-execute:lisp): Fixed typo. (org-babel-lisp-vector-to-list): Fixed typo.
This commit is contained in:
parent
015e41fa2a
commit
16e4e9b5cc
|
@ -78,7 +78,7 @@ current directory string."
|
||||||
(if (member "output" (cdr (assoc :result-params params)))
|
(if (member "output" (cdr (assoc :result-params params)))
|
||||||
(car result)
|
(car result)
|
||||||
(condition-case nil
|
(condition-case nil
|
||||||
(read (org-bable-lisp-vector-to-list (cadr result)))
|
(read (org-babel-lisp-vector-to-list (cadr result)))
|
||||||
(error (cadr result)))))
|
(error (cadr result)))))
|
||||||
(with-temp-buffer
|
(with-temp-buffer
|
||||||
(insert (org-babel-expand-body:lisp body params))
|
(insert (org-babel-expand-body:lisp body params))
|
||||||
|
@ -96,7 +96,7 @@ current directory string."
|
||||||
(org-babel-pick-name (cdr (assoc :rowname-names params))
|
(org-babel-pick-name (cdr (assoc :rowname-names params))
|
||||||
(cdr (assoc :rownames params)))))
|
(cdr (assoc :rownames params)))))
|
||||||
|
|
||||||
(defun org-bable-lisp-vector-to-list (results)
|
(defun org-babel-lisp-vector-to-list (results)
|
||||||
;; TODO: better would be to replace #(...) with [...]
|
;; TODO: better would be to replace #(...) with [...]
|
||||||
(replace-regexp-in-string "#(" "(" results))
|
(replace-regexp-in-string "#(" "(" results))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue