(morse-code): Add non-ASCII characters, according

to table at http://www.soton.ac.uk/~scp93ch/morse/.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6134b9addc4575d4b62366de463309733164b576..b2933d0ae4d82e11feff46e0b8d0fb0b5d994a1f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-20  Simon Josefsson  <jas@extundo.com>
+
+       * play/morse.el (morse-code): Add non-ASCII characters, according
+       to table at http://www.soton.ac.uk/~scp93ch/morse/.
+
 2002-11-21  Richard M. Stallman  <rms@gnu.org>
 
        * dired.el (dired-sort-inhibit): New variable.

diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index db868de63257dfa5412bd9c6dbb99b86e50d6529..e9ff8552cc2ec461971e50df6b1c8ac09d1f680c 100644 (file)
--- a/lisp/play/morse.el
+++ b/lisp/play/morse.el
@@ -1,6 +1,6 @@
-;;; morse.el --- convert text to morse code and back
+;;; morse.el --- convert text to morse code and back             -*- coding: utf-8 -*-
 
-;; Copyright (C) 1995 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 2002 Free Software Foundation, Inc.
 
 ;; Author: Rick Farnbach <rick_farnbach@MENTORG.COM>
 ;; Keywords: games
@@ -76,7 +76,17 @@
                     ("6" . "-....")
                     ("7" . "--...")
                     ("8" . "---..")
-                    ("9" . "----."))
+                    ("9" . "----.")
+                    ;; Non-ASCII
+                    ("Ä" . ".-.-")
+                    ("Á" . ".--.-")
+                    ("Å" . ".--.-")
+                    ;; ligature character?? ("Ch" . "----")
+                    ("ß" . ".../...")
+                    ("É" . "..-..")
+                    ("Ñ" . "--.--")
+                    ("Ö" . "---.")
+                    ("Ü" . "..--"))
   "Morse code character set.")
 
 ;;;###autoload