diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2021-06-17 11:18:46 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2021-06-18 15:01:03 +0200 |
| commit | ac73d77cedf2095db198219746f1607b61b1b582 (patch) | |
| tree | cf1688570b00bee4395c9d0cd001342df35f143e /lisp/play | |
| parent | 6af9f1f3efc98f3ad736db9e2cf6dfb63bf7e3ff (diff) | |
| download | emacs-ac73d77cedf2095db198219746f1607b61b1b582.tar.gz emacs-ac73d77cedf2095db198219746f1607b61b1b582.tar.bz2 emacs-ac73d77cedf2095db198219746f1607b61b1b582.zip | |
Fix Morse for non-ASCII letters
* lisp/play/morse.el (morse-code): Downcase letters in the table
because they must match downcased input.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/morse.el | 21 |
1 files changed, 10 insertions, 11 deletions
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.") |