Gecko [ 122.154.134.11 ]

Name	Size	Permission
5x5.elc	13.7 KB	-rw-r--r--
animate.elc	3.86 KB	-rw-r--r--
blackbox.elc	11.03 KB	-rw-r--r--
bruce.el	6.03 KB	-rw-r--r--
bubbles.elc	45.33 KB	-rw-r--r--
cookie1.elc	3.47 KB	-rw-r--r--
decipher.elc	23.06 KB	-rw-r--r--
dissociate.elc	2.08 KB	-rw-r--r--
doctor.elc	45.54 KB	-rw-r--r--
dunnet.elc	85.74 KB	-rw-r--r--
fortune.elc	8.4 KB	-rw-r--r--
gamegrid.elc	14.69 KB	-rw-r--r--
gametree.elc	18.55 KB	-rw-r--r--
gomoku.elc	27.57 KB	-rw-r--r--
handwrite.elc	59.95 KB	-rw-r--r--
hanoi.elc	9.95 KB	-rw-r--r--
landmark.elc	37.69 KB	-rw-r--r--
life.elc	7.21 KB	-rw-r--r--
meese.elc	1.1 KB	-rw-r--r--
morse.elc	2.4 KB	-rw-r--r--
mpuz.elc	13.52 KB	-rw-r--r--
pong.elc	10.99 KB	-rw-r--r--
snake.elc	10.59 KB	-rw-r--r--
solitaire.elc	12.81 KB	-rw-r--r--
spook.elc	1.59 KB	-rw-r--r--
studly.elc	1.43 KB	-rw-r--r--
yow.elc	3.25 KB	-rw-r--r--
zone.elc	15.12 KB	-rw-r--r--

Code Editor : morse.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:59 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/play/morse.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters
;;; and therefore cannot be loaded into Emacs 21 or earlier.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "23")))
    (error "`morse.el' 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" . "----.") ("Ä" . ".-.-") ("Æ" . ".-.-") ("Á" . ".--.-") ("Å" . ".--.-") ("ß" . ".../...") ("É" . "..-..") ("Ñ" . "--.--") ("Ö" . "---.") ("Ø" . "---.") ("Ü" . "..--") ("@" . ".--.-.")) (#$ . 606))
#@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 (#$ . 1552) "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 (#$ . 1948) "r"])
(provide 'morse)

${this.title}

Code Editor : morse.elc