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 66a826fbd4a9985c9db170da9c4e6970665bdc83..bfb25ba1d564c886b5fe8c138c2c448eb887bb48 100644 (file)
--- 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.")