mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-02-05 21:26:18 +00:00
Code

ob-core.el (org-babel-load-in-session): Throw a useful error when there is no code block at point

Browse Source 
* ob-core.el (org-babel-load-in-session): Throw a useful error
when there is no code block at point.
This commit is contained in:
Bastien Guerry 2013-03-02 15:28:51 +01:00
parent 17131cbf63
commit 2d2913ce4f
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/ob-core.el
View File

@ -758,10 +758,12 @@ session."
(let* ((info (or info (org-babel-get-src-block-info)))
(lang (nth 0 info))
(params (nth 2 info))
(body (setf (nth 1 info)
(if (org-babel-noweb-p params :eval)
(org-babel-expand-noweb-references info)
(nth 1 info))))
(body (if (not info)
(user-error "No src code block at point")
(setf (nth 1 info)
(if (org-babel-noweb-p params :eval)
(org-babel-expand-noweb-references info)
(nth 1 info)))))
(session (cdr (assoc :session params)))
(dir (cdr (assoc :dir params)))
(default-directory