summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2010-09-07 23:59:04 -0600
committerEric Schulte <schulte.eric@gmail.com>2010-09-07 23:59:04 -0600
commite92a4b08138b929a7ba1be7553ea73d4117acbe9 (patch)
treeee7b96e14b5eb8245e71c8dd77dadabfbc723379
parent58fe37129900a6a34e19df504f63a83cdcdee0ee (diff)
downloadorg-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.el8
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ob.el b/lisp/ob.el
index 9c03383..f7d7050 100644
--- a/lisp/ob.el
+++ b/lisp/ob.el
@@ -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)