Mercurial > emacs

comparison lisp/play/morse.el @ 54081:58125578390a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix typo. (morse-code): Add @.
author Simon Josefsson <jas@extundo.com>
date Thu, 19 Feb 2004 19:35:52 +0000
parents 695cf19ef79e
children eaa9acd9122c
comparison
equal deleted inserted replaced
54080:3e751a748427 54081:58125578390a
1 ;;; morse.el --- convert text to morse code and back -*- coding: utf-8 -*- 1 ;;; morse.el --- convert text to morse code and back -*- coding: utf-8 -*-
2 2
3 ;; Copyright (C) 1995, 2002 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995, 2002, 2004 Free Software Foundation, Inc.
4 4
5 ;; Author: Rick Farnbach <rick_farnbach@MENTORG.COM> 5 ;; Author: Rick Farnbach <rick_farnbach@MENTORG.COM>
6 ;; Keywords: games 6 ;; Keywords: games
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26 26
27 ;; Converts text to Morse code and back with M-x morese-region and 27 ;; Converts text to Morse code and back with M-x morse-region and
28 ;; M-x unmorse-region (though Morse code is no longer official :-(). 28 ;; M-x unmorse-region (though Morse code is no longer official :-().
29 29
30 ;;; Code: 30 ;;; Code:
31 31
32 (defvar morse-code '(("a" . ".-") 32 (defvar morse-code '(("a" . ".-")
86 ("ß" . ".../...") 86 ("ß" . ".../...")
87 ("É" . "..-..") 87 ("É" . "..-..")
88 ("Ñ" . "--.--") 88 ("Ñ" . "--.--")
89 ("Ö" . "---.") 89 ("Ö" . "---.")
90 ("Ø" . "---.") 90 ("Ø" . "---.")
91 ("Ü" . "..--")) 91 ("Ü" . "..--")
92 ;; Recently standardized
93 ("@" . ".--.-."))
92 "Morse code character set.") 94 "Morse code character set.")
93 95
94 ;;;###autoload 96 ;;;###autoload
95 (defun morse-region (beg end) 97 (defun morse-region (beg end)
96 "Convert all text in a given region to morse code." 98 "Convert all text in a given region to morse code."