mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 02:30:03 +00:00
lisp/ob-emacs-lisp.el: Throw an error when session is requested
* lisp/ob-emacs-lisp.el (org-babel-execute:emacs-lisp): When :session is provided, signal error - sessions are not supported. (org-babel-prep-session:emacs-lisp): Signal error when trying to switch to session. Reported-by: Adam Sneller <adam@earth2adam.com> Link: https://orgmode.org/list/871qoe8k9e.fsf@localhost
This commit is contained in:
parent
029d85dcca
commit
d1c6f91ced
|
@ -69,6 +69,7 @@ by `org-edit-src-code'.")
|
||||||
(defun org-babel-execute:emacs-lisp (body params)
|
(defun org-babel-execute:emacs-lisp (body params)
|
||||||
"Execute emacs-lisp code BODY according to PARAMS."
|
"Execute emacs-lisp code BODY according to PARAMS."
|
||||||
(let* ((lexical (cdr (assq :lexical params)))
|
(let* ((lexical (cdr (assq :lexical params)))
|
||||||
|
(session (cdr (assq :session params)))
|
||||||
(result-params (cdr (assq :result-params params)))
|
(result-params (cdr (assq :result-params params)))
|
||||||
(body (format (if (member "output" result-params)
|
(body (format (if (member "output" result-params)
|
||||||
"(with-output-to-string %s\n)"
|
"(with-output-to-string %s\n)"
|
||||||
|
@ -79,6 +80,7 @@ by `org-edit-src-code'.")
|
||||||
(concat "(pp " body ")")
|
(concat "(pp " body ")")
|
||||||
body))
|
body))
|
||||||
(org-babel-emacs-lisp-lexical lexical))))
|
(org-babel-emacs-lisp-lexical lexical))))
|
||||||
|
(when session (error "ob-emacs-lisp backend does not support sessions"))
|
||||||
(org-babel-result-cond result-params
|
(org-babel-result-cond result-params
|
||||||
(let ((print-level nil)
|
(let ((print-level nil)
|
||||||
(print-length nil))
|
(print-length nil))
|
||||||
|
@ -111,6 +113,10 @@ channel, as returned by `org-babel-get-src-block-info'."
|
||||||
(org-babel-read
|
(org-babel-read
|
||||||
(cdr (assq :lexical (nth 2 info)))))))
|
(cdr (assq :lexical (nth 2 info)))))))
|
||||||
|
|
||||||
|
(defun org-babel-prep-session:emacs-lisp (_session _params)
|
||||||
|
"Return an error because we do not support sessions."
|
||||||
|
(error "ob-emacs-lisp backend does not support sessions"))
|
||||||
|
|
||||||
(org-babel-make-language-alias "elisp" "emacs-lisp")
|
(org-babel-make-language-alias "elisp" "emacs-lisp")
|
||||||
|
|
||||||
(provide 'ob-emacs-lisp)
|
(provide 'ob-emacs-lisp)
|
||||||
|
|
Loading…
Reference in a new issue