;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@27 Morse code character set.
(defvar morse-code '(("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" . "----.") ("Ä" . ".-.-") ("Æ" . ".-.-") ("Á" . ".--.-") ("Å" . ".--.-") ("ß" . ".../...") ("É" . "..-..") ("Ñ" . "--.--") ("Ö" . "---.") ("Ø" . "---.") ("Ü" . "..--") ("@" . ".--.-.")) (#$ . 408))
#@211 NATO phonetic alphabet.
See “International Code of Signals” (INTERCO), United States
Edition, 1969 Edition (Revised 2003) available from National
Geospatial-Intelligence Agency at URL `http://www.nga.mil/'
(defvar nato-alphabet '(("a" . "Alfa") ("b" . "Bravo") ("c" . "Charlie") ("d" . "Delta") ("e" . "Echo") ("f" . "Foxtrot") ("g" . "Golf") ("h" . "Hotel") ("i" . "India") ("j" . "Juliett") ("k" . "Kilo") ("l" . "Lima") ("m" . "Mike") ("n" . "November") ("o" . "Oscar") ("p" . "Papa") ("q" . "Quebec") ("r" . "Romeo") ("s" . "Sierra") ("t" . "Tango") ("u" . "Uniform") ("v" . "Victor") ("w" . "Whiskey") ("x" . "Xray") ("y" . "Yankee") ("z" . "Zulu") ("0" . "Zero") ("1" . "One") ("2" . "Two") ("3" . "Three") ("4" . "Four") ("5" . "Five") ("6" . "Six") ("7" . "Seven") ("8" . "Eight") ("9" . "Niner") ("=" . "Equals") ("?" . "Query") ("/" . "Slash") ("," . "Comma") ("." . "Stop") (":" . "Colon") ("'" . "Apostrophe") ("-" . "Dash") ("(" . "Open") (")" . "Close") ("@" . "At")) (#$ . 1355))
#@51 Convert all text in a given region to morse code.
(defalias 'morse-region #[(beg end) "\250\203 \306!\212\307\310\211\fb\210`W\205N ``T{\227\311\312!\203. \313\225b\210\307\202 \314\n
\"\211\203F \315\316!\210 A\261\210\317\202 \316u\210\307\202 ,\207" [end morse str sep beg morse-code copy-marker "" nil looking-at "\\s-+" 0 assoc delete-char 1 "/"] 3 (#$ . 2360) "*r"])
#@60 Convert morse coded text in region to ordinary ASCII text.
(defalias 'unmorse-region #[(beg end) "\250\203 \306!\212\307\211\211\fb\210`W\205d \310\311!\204% \312u\210\202 \313\224\313\225{\314
\"\211\204; \313\225b\210\202 \315 @\316\230\203R \n?\211\203N \316\202T \317\202T @\320\"\210\310\321!\203 \322\312!\210\202 ,\207" [end morse paren str beg morse-code copy-marker nil looking-at "[-.]+" 1 0 rassoc replace-match "(" ")" t "/" delete-char] 3 (#$ . 2757) "*r"])
#@63 Convert all text in a given region to NATO phonetic alphabet.
(defalias 'nato-region #[(beg end) "\250\203 \306!\212\307\310\211\fb\210`W\205N ``T{\227\311\312!\203. \313\225b\210\307\202 \314\n
\"\211\203F \315\316!\210 A\261\210\317\202 \316u\210\307\202 ,\207" [end nato str sep beg nato-alphabet copy-marker "" nil looking-at "\\s-+" 0 assoc delete-char 1 "-"] 3 (#$ . 3251) "*r"])
#@66 Convert NATO phonetic alphabet in region to ordinary ASCII text.
(defalias 'denato-region #[(beg end) "\250\203 \306!\212\307\211\211\fb\210`W\205f \310\311!\204% \312u\210\202 \313\224\313\225{\314\315 !
\"\211\204= \313\225b\210\202 \316 @\317\230\203T \n?\211\203P \317\202V \320\202V @\321\"\210\310\322!\203 \323\312!\210\202 ,\207" [end nato paren str beg nato-alphabet copy-marker nil looking-at "[a-z]+" 1 0 rassoc capitalize replace-match "(" ")" t "-" delete-char] 3 (#$ . 3661) "*r"])
(provide 'morse)
|