branch: externals/embark
commit 8c768f2b67bfff63b465b372ff0cdea5006a90c1
Author: Omar Antolín <[email protected]>
Commit: Omar Antolín <[email protected]>
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))
