(morse-region, unmorse-region): Add autoload

cookie.

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")