aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/play/morse.el8
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index 5ab461641e5..02e01bc23b7 100644
--- a/lisp/play/morse.el
+++ b/lisp/play/morse.el
@@ -3,6 +3,7 @@
3;; Copyright (C) 1995 Free Software Foundation, Inc. 3;; Copyright (C) 1995 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 7
7;; This file is part of GNU Emacs. 8;; This file is part of GNU Emacs.
8 9
@@ -21,6 +22,11 @@
21;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
22;; Boston, MA 02111-1307, USA. 23;; Boston, MA 02111-1307, USA.
23 24
25;;; Commentary:
26
27;; Converts text to Morse code and back with M-x morese-region and
28;; M-x unmorse-region (though Morse code is no longer official :-().
29
24;;; Code: 30;;; Code:
25 31
26(defvar morse-code '(("a" . ".-") 32(defvar morse-code '(("a" . ".-")
@@ -73,6 +79,7 @@
73 ("9" . "----.")) 79 ("9" . "----."))
74 "Morse code character set.") 80 "Morse code character set.")
75 81
82;;;###autoload
76(defun morse-region (beg end) 83(defun morse-region (beg end)
77 "Convert all text in a given region to morse code." 84 "Convert all text in a given region to morse code."
78 (interactive "r") 85 (interactive "r")
@@ -95,6 +102,7 @@
95 (forward-char 1) 102 (forward-char 1)
96 (setq sep ""))))))) 103 (setq sep "")))))))
97 104
105;;;###autoload
98(defun unmorse-region (beg end) 106(defun unmorse-region (beg end)
99 "Convert morse coded text in region to ordinary ASCII text." 107 "Convert morse coded text in region to ordinary ASCII text."
100 (interactive "r") 108 (interactive "r")