branch: externals/objed
commit 43befe6d331f1014c3efa44300d6fe8d3ade578a
Author: Clemens Radermacher <[email protected]>
Commit: Clemens Radermacher <[email protected]>
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")
