[elpa] externals/objed 3c8f74d 186/216: Make forward-word work like the other commands for extend

[Stefan Monnier]

branch: externals/objed
commit 3c8f74d11ae74636fad9941269422c909037011f
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Make forward-word work like the other commands for extend
---
 objed.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/objed.el b/objed.el
index 802268b..1a5649c 100644
--- a/objed.el
+++ b/objed.el
@@ -609,7 +609,10 @@ BEFORE and AFTER are forms to execute before/after calling 
the command."
     (define-key map "B" 'objed-move-char-backward)
     (define-key map "F" 'objed-move-char-forward)
 
-    (define-key map "s" (objed--call-and-switch forward-word word))
+    (define-key map "s" (objed--call-and-switch
+                         forward-word word
+                         (when (eq last-command 'objed-extend)
+                           (objed-exchange-point-and-mark))))
     (define-key map "r" (objed--call-and-switch backward-word word))
 
     (define-key map "S" 'objed-move-word-forward)