diff options
| author | Dave Love <[email protected]> | 2000-10-08 17:37:14 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 2000-10-08 17:37:14 +0000 |
| commit | 0c0e321f2f4854875d5fa21ed5585772675b97fc (patch) | |
| tree | 4cd23e2d11767b0068ea44dae9e2b1dee0c6101b /lisp/play | |
| parent | 32822a2da556d0c0950da36677a24950ac5dec75 (diff) | |
(morse-region, unmorse-region): Add autoload
cookie.
Diffstat (limited to 'lisp/play')
| -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 5ab461641e..02e01bc23b 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 <[email protected]> +;; 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") |