[elpa] externals/objed 5c450d1 4/9: Improve shrink context

[Clemens Radermacher]

branch: externals/objed
commit 5c450d14fa4f53f25f4e2399827c7330ee4b76f6
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Improve shrink context
---
 objed.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/objed.el b/objed.el
index 746adea..19bcd66 100644
--- a/objed.el
+++ b/objed.el
@@ -1853,7 +1853,9 @@ Switches to inner object or object inside current one."
       (save-excursion
         (objed-context-object))
     (if (objed--inner-p)
-        (objed--switch-to 'sexp)))
+        (save-excursion
+          (goto-char (objed--end))
+          (objed--switch-to 'sexp))))
   (let ((sdiff (abs (- (point) (objed--beg))))
         (ediff (abs (- (point) (objed--end)))))
     (objed--reverse)