diff options
| -rw-r--r-- | lisp/play/morse.el | 8 |
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") |