diff options
| author | Bastien Guerry <bzg@altern.org> | 2013-03-02 15:28:51 +0100 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2013-03-02 15:28:51 +0100 |
| commit | 2d2913ce4f08c511534eb49c4941376d2813f59e (patch) | |
| tree | 36aea67108d0fa914ca1bc4594c46564881d6d03 | |
| parent | 17131cbf63ae85707607c4cdb7eb02b27cee4dea (diff) | |
| download | org-mode-2d2913ce4f08c511534eb49c4941376d2813f59e.tar.gz | |
ob-core.el (org-babel-load-in-session): Throw a useful error when there is no code block at point
* ob-core.el (org-babel-load-in-session): Throw a useful error
when there is no code block at point.
| -rw-r--r-- | lisp/ob-core.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 275a4f7..80601ea 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -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 |