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 91dc687d1952607a9be207364c2783b2facfee79..66a826fbd4a9985c9db170da9c4e6970665bdc83 100644 (file)
--- 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)