[elpa] externals/objed 3958d8a 020/216: Improve sentence object

[Stefan Monnier]

branch: externals/objed
commit 3958d8ac989c6de9ca0b2e882c2cfea07b043c10
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Improve sentence object
---
 objed-objects.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/objed-objects.el b/objed-objects.el
index 87a6ceb..abef039 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1520,6 +1520,7 @@ non-nil the indentation block can contain empty lines."
 (objed-define-object nil sentence
   :atp
   (when (or (derived-mode-p 'text-mode)
+           (eq major-mode 'fundamental-mode)
            (objed--at-comment-p)
            (objed--in-string-or-comment-p))
     (let ((ip (ignore-errors
@@ -1530,6 +1531,7 @@ non-nil the indentation block can contain empty lines."
       (and ip (= (point) ip))))
   :get-obj
   (when (or (derived-mode-p 'text-mode)
+           (eq major-mode 'fundamental-mode)
            (objed--at-comment-p)
            (objed--in-string-or-comment-p))
     (objed--with-narrow-for-text
@@ -1564,8 +1566,9 @@ non-nil the indentation block can contain empty lines."
                                 (forward-sentence)
                                 (point)))
       (forward-sentence 1))
+    (forward-sentence 1)
     ;; move to start
-    (forward-sentence 1))
+    (forward-sentence -1))
   :try-prev
   (objed--with-narrow-for-text
    ;; call twice at end of sentence