mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-30 12:21:25 -08:00
(morse-region, unmorse-region): Add autoload
cookie.
This commit is contained in:
parent
32822a2da5
commit
0c0e321f2f
1 changed files with 8 additions and 0 deletions
|
|
@ -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")
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue