[elpa] externals/objed 54e8d42 011/216: Adjust textblock object

[Stefan Monnier]

branch: externals/objed
commit 54e8d4272fcf9cb453afb3052bd26934d758c0c8
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Adjust textblock object
---
 objed-objects.el | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index 466c213..f4cda2b 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1434,17 +1434,15 @@ Ignores simple structured expressions like words or 
symbols."
   
   :try-next
   (forward-word 1)
-  ;; TODO: remove error
-  (unless (or (objed--in-string-or-comment-p)
-             (derived-mode-p 'text-mode)
-             (not (derived-mode-p 'prog-mode)))
-    (error "No textblock found"))
+  (or (objed--in-string-or-comment-p)
+      (derived-mode-p 'text-mode)
+      (not (derived-mode-p 'prog-mode)))
+
   :try-prev
   (forward-word -1)
-  (unless (or (objed--in-string-or-comment-p)
-             (derived-mode-p 'text-mode)
-             (not (derived-mode-p 'prog-mode)))
-    (error "No textblock found")))
+  (or (objed--in-string-or-comment-p)
+      (derived-mode-p 'text-mode)
+      (not (derived-mode-p 'prog-mode))))
 
 
 (defun objed--column (pos)