;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:09:45 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/rot13.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@31 Char table for ROT13 display.
(defvar rot13-display-table (byte-code "\302 \303\304W\2030	\305\\\306\307\\\304\246\305\\!I\210	\310\\\306\307\\\304\246\310\\!I\210T\211\202	*\207" [i table make-display-table 0 26 97 vector 13 65] 6) (#$ . 539))
#@37 String table for ROT13 translation.
(defvar rot13-translate-table (byte-code "\302\303\304\"\304\303W\203	\211I\210T\211\202\304\211\305W\203B	\306\\\307\\\305\246\306\\I\210	\310\\\307\\\305\246\310\\I\210T\211\202	*\207" [i str make-string 127 0 26 97 13 65] 5) (#$ . 802))
#@56 Return ROT13 encryption of OBJECT, a buffer or string.
(defalias 'rot13 #[(object &optional start end) "\303!\203rq\210\304	\n\")\207\305!\207" [object start end bufferp rot13-region rot13-string] 3 (#$ . 1104)])
#@36 Return ROT13 encryption of STRING.
(defalias 'rot13-string #[(string) "\302\303!rq\210\304\216	c\210\305ed\"\210\306 +\207" [#1=#:temp-buffer string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) rot13-region buffer-string] 3 (#$ . 1328)])
#@67 ROT13 encrypt the region between START and END in current buffer.
(defalias 'rot13-region #[(start end) "\303	\n#\207" [start end rot13-translate-table translate-region] 4 (#$ . 1639) "r"])
#@318 Display current buffer in ROT13 in another window.
The text itself is not modified, only the way it is displayed is affected.

To terminate the ROT13 display, delete that window.  As long as that window
is not deleted, any buffer displayed in it will become instantly encoded
in ROT13.

See also `toggle-rot13-mode'.
(defalias 'rot13-other-window #[nil "\302p\303\"\304	\")\207" [w rot13-display-table display-buffer t set-window-display-table] 3 (#$ . 1837) nil])
#@58 Toggle the use of ROT13 encoding for the current window.
(defalias 'toggle-rot13-mode #[nil "\301\302 !=\203\303\302 \304\"\207\301\302 !?\205\303\302 \"\207" [rot13-display-table window-display-table selected-window set-window-display-table nil] 3 (#$ . 2310) nil])
(provide 'rot13)
