[elpa] externals/objed 4489ea3 187/216: Fixup forward word extend when already at word end pos

[Stefan Monnier]

branch: externals/objed
commit 4489ea389493d67ad162525032ed8b4a7a6f9c1a
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Fixup forward word extend when already at word end pos
---
 objed.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/objed.el b/objed.el
index 1a5649c..450c22c 100644
--- a/objed.el
+++ b/objed.el
@@ -611,7 +611,8 @@ BEFORE and AFTER are forms to execute before/after calling 
the command."
 
     (define-key map "s" (objed--call-and-switch
                          forward-word word
-                         (when (eq last-command 'objed-extend)
+                         (when (and (eq last-command 'objed-extend)
+                                    (looking-at "\\<"))
                            (objed-exchange-point-and-mark))))
     (define-key map "r" (objed--call-and-switch backward-word word))