[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ac73d77 1/2: Fix Morse for non-ASCII letters
From: |
Mattias Engdegård |
Subject: |
master ac73d77 1/2: Fix Morse for non-ASCII letters |
Date: |
Fri, 18 Jun 2021 09:06:12 -0400 (EDT) |
branch: master
commit ac73d77cedf2095db198219746f1607b61b1b582
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
Fix Morse for non-ASCII letters
* lisp/play/morse.el (morse-code): Downcase letters in the table
because they must match downcased input.
---
lisp/play/morse.el | 21 ++++++++++-----------
1 file changed, 10 insertions(+), 11 deletions(-)
diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index 66a826f..bfb25ba 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.")