From bff3edfd17ede3f6c9ae2f2a3588c155d6d11de4 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 29 May 2021 05:22:31 +0200 Subject: [PATCH] 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). --- lisp/play/morse.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.5