(gametree-mode): Use make-local-variable, not make-variable-buffer-local.

[gnu-emacs] / lisp / play / morse.el

diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index db868de63257dfa5412bd9c6dbb99b86e50d6529..ae3533227e4be3a0ec3ca0dbdfb2fac065bc5dfc 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, 2003, 2004, 2005 Free Software Foundation, Inc.
 
 ;; Author: Rick Farnbach <rick_farnbach@MENTORG.COM>
 ;; Keywords: games
@@ -19,12 +19,12 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
-;; Converts text to Morse code and back with M-x morese-region and
+;; Converts text to Morse code and back with M-x morse-region and
 ;; M-x unmorse-region (though Morse code is no longer official :-().
 
 ;;; Code:
@@ -76,7 +76,21 @@
                     ("6" . "-....")
                     ("7" . "--...")
                     ("8" . "---..")
-                    ("9" . "----."))
+                    ("9" . "----.")
+                    ;; Non-ASCII
+                    ("Ä" . ".-.-")
+                    ("Æ" . ".-.-")
+                    ("Á" . ".--.-")
+                    ("Å" . ".--.-")
+                    ;; ligature character?? ("Ch" . "----")
+                    ("ß" . ".../...")
+                    ("É" . "..-..")
+                    ("Ñ" . "--.--")
+                    ("Ö" . "---.")
+                    ("Ø" . "---.")
+                    ("Ü" . "..--")
+                    ;; Recently standardized
+                    ("@" . ".--.-."))
   "Morse code character set.")
 
 ;;;###autoload
@@ -126,4 +140,5 @@
 
 (provide 'morse)
 
+;;; arch-tag: 3331e6c1-9a9e-453f-abfd-163a9c3f93a6
 ;;; morse.el ends here