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 @@ ;; Copyright (C) 1995 Free Software Foundation, Inc. ;; Author: Rick Farnbach <rick_farnbach@MENTORG.COM> +;; Keywords: games ;; This file is part of GNU Emacs. @@ -21,6 +22,11 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;; Converts text to Morse code and back with M-x morese-region and +;; M-x unmorse-region (though Morse code is no longer official :-(). + ;;; Code: (defvar morse-code '(("a" . ".-") @@ -73,6 +79,7 @@ ("9" . "----.")) "Morse code character set.") +;;;###autoload (defun morse-region (beg end) "Convert all text in a given region to morse code." (interactive "r") @@ -95,6 +102,7 @@ (forward-char 1) (setq sep ""))))))) +;;;###autoload (defun unmorse-region (beg end) "Convert morse coded text in region to ordinary ASCII text." (interactive "r") |