diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-09-07 23:59:04 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-09-07 23:59:04 -0600 |
commit | e92a4b08138b929a7ba1be7553ea73d4117acbe9 (patch) | |
tree | ee7b96e14b5eb8245e71c8dd77dadabfbc723379 | |
parent | 58fe37129900a6a34e19df504f63a83cdcdee0ee (diff) | |
download | org-mode-e92a4b08138b929a7ba1be7553ea73d4117acbe9.tar.gz |
ob: better error messages when searches for code blocks fail
* lisp/ob.el (org-babel-next-src-block): now raising more informative
error when no further code blocks can be found
(org-babel-previous-src-block): now raising more informative error
when no previous code blocks can be found
-rw-r--r-- | lisp/ob.el | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -1097,7 +1097,9 @@ buffer or nil if no such result exists." With optional prefix argument ARG, jump forward ARG many source blocks." (interactive "P") (when (looking-at org-babel-src-block-regexp) (forward-char 1)) - (re-search-forward org-babel-src-block-regexp nil nil (or arg 1)) + (condition-case nil + (re-search-forward org-babel-src-block-regexp nil nil (or arg 1)) + (error (error "No further code blocks"))) (goto-char (match-beginning 0)) (org-show-context)) ;;;###autoload @@ -1105,7 +1107,9 @@ With optional prefix argument ARG, jump forward ARG many source blocks." "Jump to the previous source block. With optional prefix argument ARG, jump backward ARG many source blocks." (interactive "P") - (re-search-backward org-babel-src-block-regexp nil nil (or arg 1)) + (condition-case nil + (re-search-backward org-babel-src-block-regexp nil nil (or arg 1)) + (error (error "No previous code blocks"))) (goto-char (match-beginning 0)) (org-show-context)) (defvar org-babel-lob-one-liner-regexp) |