From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 29 May 2021 03:22:31 +0000 (+0200)
Subject: Fix point movement in morse-region and nato-region
X-Git-Tag: emacs-28.0.90~2290
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bff3edfd17ede3f6c9ae2f2a3588c155d6d11de4;p=emacs.git

Fix point movement in morse-region and nato-region

* lisp/play/morse.el (morse-region):
(nato-region): Leave point after the translated region
(bug#18717).
---

diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index 91dc687d195..66a826fbd4a 100644
--- a/lisp/play/morse.el
+++ b/lisp/play/morse.el
@@ -165,7 +165,7 @@ Geospatial-Intelligence Agency at URL `https://www.nga.mil/'")
 	       (setq sep ""))
 	      ((setq morse (assoc str morse-code))
 	       (delete-char 1)
-	       (insert sep (cdr morse))
+	       (insert-before-markers sep (cdr morse))
 	       (setq sep "/"))
 	      (t
 	       (forward-char 1)
@@ -211,7 +211,7 @@ Geospatial-Intelligence Agency at URL `https://www.nga.mil/'")
 	       (setq sep ""))
 	      ((setq nato (assoc str nato-alphabet))
 	       (delete-char 1)
-	       (insert sep (cdr nato))
+	       (insert-before-markers sep (cdr nato))
 	       (setq sep "-"))
 	      (t
 	       (forward-char 1)