diff options
Diffstat (limited to 'lisp/play/morse.el')
-rw-r--r-- | lisp/play/morse.el | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/lisp/play/morse.el b/lisp/play/morse.el index 8e09c225059..bfb25ba1d56 100644 --- a/lisp/play/morse.el +++ b/lisp/play/morse.el @@ -79,17 +79,16 @@ ("8" . "---..") ("9" . "----.") ;; Non-ASCII - ("Ä" . ".-.-") - ("Æ" . ".-.-") - ("Á" . ".--.-") - ("Å" . ".--.-") - ;; ligature character?? ("Ch" . "----") - ("ß" . ".../...") - ("É" . "..-..") - ("Ñ" . "--.--") - ("Ö" . "---.") - ("Ø" . "---.") - ("Ü" . "..--") + ("ä" . ".-.-") + ("æ" . ".-.-") + ("á" . ".--.-") + ("å" . ".--.-") + ("ß" . ".../...") ; also ...--.. + ("é" . "..-..") + ("ñ" . "--.--") + ("ö" . "---.") + ("ø" . "---.") + ("ü" . "..--") ;; Recently standardized ("@" . ".--.-.")) "Morse code character set.") @@ -146,7 +145,7 @@ "NATO phonetic alphabet. See “International Code of Signals” (INTERCO), United States Edition, 1969 Edition (Revised 2003) available from National -Geospatial-Intelligence Agency at URL `http://www.nga.mil/'") +Geospatial-Intelligence Agency at URL `https://www.nga.mil/'") ;;;###autoload (defun morse-region (beg end) @@ -165,7 +164,7 @@ Geospatial-Intelligence Agency at URL `http://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 +210,7 @@ Geospatial-Intelligence Agency at URL `http://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) |