[elpa] externals/objed 7627082 13/21: Don't ignore search errors, error with not other object found msg.

[Clemens Radermacher]

branch: externals/objed
commit 7627082859335c1d4b7645d47de4693f29c1f5a8
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Don't ignore search errors, error with not other object found msg.
---
 objed-objects.el | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index 5fb40ad..7b90de7 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -738,7 +738,11 @@ specific versions of object."
   (cond ((memq query '(:try-next :try-prev))
          (condition-case nil
              (funcall objf query)
-           ((end-of-buffer beginning-of-buffer search-failed scan-error)
+           (search-failed
+            (error "No %s %s found"
+                   (if (eq query :try-next) "next" "previous")
+                   objed--object))
+           ((end-of-buffer beginning-of-buffer scan-error)
             (ignore))))
         (t
          (funcall objf query))))
@@ -1631,19 +1635,17 @@ comments."
   :get-obj
   (bounds-of-thing-at-point 'email)
   :try-next
-  (re-search-forward  "@" nil t)
+  (re-search-forward  "@")
   :try-prev
-  (re-search-backward  "@" nil t))
+  (re-search-backward  "@"))
 
 (objed-define-object nil url
   :get-obj
   (bounds-of-thing-at-point 'url)
   :try-next
-  (re-search-forward "http"
-                     nil t)
+  (re-search-forward "http")
   :try-prev
-  (re-search-backward "http"
-                      nil t))
+  (re-search-backward "http"))
 
 (objed-define-object nil page
   :atp