[elpa] externals/objed 43befe6 050/166: Stop weird behavior of line and char object at eob

[Clemens Radermacher]

branch: externals/objed
commit 43befe6d331f1014c3efa44300d6fe8d3ade578a
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Stop weird behavior of line and char object at eob
---
 objed-objects.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index 9e93a2d..7a1b191 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1457,11 +1457,10 @@ comments."
   :atp
   (looking-at ".")
   :get-obj
-  (objed-make-object
-   :beg (point)
-   :ibeg (point)
-   :end (if (eobp) (point) (1+ (point)))
-   :iend (if (eobp) (point) (1+ (point))))
+  (list (list (point)
+              (if (eobp) (point) (1+ (point))))
+        (list (point)
+              (if (eobp) (point) (1+ (point)))))
   :try-next
   ;; current one is skipped, for chars this means we are already at
   ;; the next..
@@ -1773,12 +1772,13 @@ comments."
   (or (looking-at "^")
       (looking-back "^ *" (line-beginning-position)))
   :get-obj
-  (objed-make-object :beg (line-beginning-position)
-                     :end (save-excursion
+  (if (eobp)
+      (list (list (point) (point))
+            (list (point) (point)))
+    (objed-make-object :beg (line-beginning-position)
+                       :end (save-excursion
                             ;; include hidden parts...
-                            (end-of-visible-line)
-                            (if (eobp)
-                                (point)
+                              (end-of-visible-line)
                               (1+ (point)))))
   :try-next
   (skip-chars-forward " \t\r\n")