From: Mattias Engdegård <mattiase@acm.org>
Date: Thu, 17 Jun 2021 09:18:46 +0000 (+0200)
Subject: Fix Morse for non-ASCII letters
X-Git-Tag: emacs-28.0.90~2091
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac73d77cedf2095db198219746f1607b61b1b582;p=emacs.git

Fix Morse for non-ASCII letters

* lisp/play/morse.el (morse-code): Downcase letters in the table
because they must match downcased input.
---

diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index 66a826fbd4a..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.")