;ELC   
;;; compiled by kwzh@churchy.gnu.ai.mit.edu on Thu Feb 15 20:11:59 1996
;;; from file /gd/gnu/emacs/19.0/lisp/morse.el
;;; emacs version 19.30.91.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`morse.el' was compiled for Emacs 19.29 or later"))


#@27 Morse code character set.
(defvar morse-code (quote (("a" . ".-") ("b" . "-...") ("c" . "-.-.") ("d" . "-..") ("e" . ".") ("f" . "..-.") ("g" . "--.") ("h" . "....") ("i" . "..") ("j" . ".---") ("k" . "-.-") ("l" . ".-..") ("m" . "--") ("n" . "-.") ("o" . "---") ("p" . ".--.") ("q" . "--.-") ("r" . ".-.") ("s" . "...") ("t" . "-") ("u" . "..-") ("v" . "...-") ("w" . ".--") ("x" . "-..-") ("y" . "-.--") ("z" . "--..") ("=" . "-...-") ("?" . "..--..") ("/" . "-..-.") ("," . "--..--") ("." . ".-.-.-") (":" . "---...") ("'" . ".----.") ("-" . "-....-") ("(" . "-.--.-") (")" . "-.--.-") ("0" . "-----") ("1" . ".----") ("2" . "..---") ("3" . "...--") ("4" . "....-") ("5" . ".....") ("6" . "-....") ("7" . "--...") ("8" . "---..") ("9" . "----."))) (#$ . 473))
#@51 Convert all text in a given region to morse code.
(defalias 'morse-region #[(beg end) "¨ƒ	 Á!ŠÂÃ‰bˆ`W…U ``T{—ÈÉ!ƒ1 Ê•bˆÂ‚ Ë\f\"‰ƒL ÍÎ!ˆ\fA±ˆÏ‚ ÎuˆÂ‚ ,‡" [end copy-marker "" nil morse str sep beg looking-at "\\s-+" 0 assoc morse-code delete-char 1 "/"] 3 (#$ . 1242) "r"])
#@60 Convert morse coded text in region to ordinary ASCII text.
(defalias 'unmorse-region #[(beg end) "¨ƒ	 Á!ŠÂ‰‰bˆ`W…f ÇÈ!„& Éuˆ‚ Ê”Ê•{Ë\f\"‰„= Ê•bˆ‚ Í@Î˜ƒT \f?‰ƒP Î‚V Ï‚V @Ð\"ˆÇÑ!ƒ ÒÉ!ˆ‚ ,‡" [end copy-marker nil morse paren str beg looking-at "[-.]+" 1 0 rassoc morse-code replace-match "(" ")" t "/" delete-char] 3 (#$ . 1546) "r"])
(provide (quote morse))