diff --git a/meow-command.el b/meow-command.el index 32ff5be..b9b6054 100644 --- a/meow-command.el +++ b/meow-command.el @@ -807,8 +807,8 @@ This will shrink the word selection only contains (1- pos))) (let ((bounds (bounds-of-thing-at-point thing))) (if (> mark pos) - (cdr bounds) - (car bounds))))) + (min mark (cdr bounds)) + (max mark (car bounds)))))) (defun meow-next-thing (thing type n) "Create non-expandable selection of TYPE to the end of the next Nth THING.