branch: elpa/meow
commit 40912185b5260bd754b7e2bbc80587469395cca8
Author: esrh <e...@esrh.me>
Commit: esrh <e...@esrh.me>
fix(meow-command): meow--fix-thing-selection-mark fallback
originally chooses the correct option between a bound returned by
bounds-of-thing-at-point and the mark. Errors when it returns nil.
Now, always chooses the mark when that happens.
---
meow-command.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/meow-command.el b/meow-command.el
index fdd572fb88..ff4186e865 100644
--- a/meow-command.el
+++ b/meow-command.el
@@ -868,10 +868,10 @@ those in INCLUDE-SYNTAX."
(if backward pos
;; Point must be before the end of the word to get the bounds
correctly
(1- pos)))
- (let* ((bounds (bounds-of-thing-at-point thing))
- (m (if backward
- (min mark (cdr bounds))
- (max mark (car bounds)))))
+ (let* ((bounds (or (bounds-of-thing-at-point thing) (cons mark mark)))
+ (m (if backward
+ (min mark (cdr bounds))
+ (max mark (car bounds)))))
(save-mark-and-excursion
(goto-char m)
(if backward
