[elpa] externals/embark 8c768f2b67 2/4: embark-insert: leave point after inserted text (fix #533)

[ELPA Syncer]

branch: externals/embark
commit 8c768f2b67bfff63b465b372ff0cdea5006a90c1
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    embark-insert: leave point after inserted text (fix #533)
---
 embark.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/embark.el b/embark.el
index 225ae0602d..b6fb0b032a 100644
--- a/embark.el
+++ b/embark.el
@@ -3441,11 +3441,11 @@ its own."
                 (maybe-whitespace ()
                   (if multiline (maybe-newline) (maybe-space)))
                 (ins-string ()
-                  (save-excursion
+                  (let ((start (point)))
                     (insert (string-join strings separator))
+                    (save-excursion (goto-char start) (maybe-whitespace))
                     (when (looking-back "\n" 1) (delete-char -1))
-                    (maybe-whitespace))
-                  (maybe-whitespace)))
+                    (save-excursion (maybe-whitespace)))))
       (if buffer-read-only
           (with-selected-window (other-window-for-scrolling)
             (ins-string))