Current File : //usr/local/share/emacs/27.2/lisp/rot13.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 "\300 \301\211\302W\203. \303\\\304\305\\\302\246\303\\!I\210\306\\\304\305\\\302\246\306\\!I\210\211T\262\202 \207" [make-display-table 0 26 97 vector 13 65] 7) (#$ . 408))
#@37 String table for ROT13 translation.
(defvar rot13-translate-table (byte-code "\300\301\302\"\302\211\301W\203 \211I\210\211T\262\202 \302\262\211\303W\203A \304\\\305\\\303\246\304\\I\210\306\\\305\\\303\246\306\\I\210\211T\262\202 \207" [make-string 127 0 26 97 13 65] 6) (#$ . 666))
#@249 ROT13 encrypt OBJECT, a buffer or string.
If OBJECT is a buffer, encrypt the region between START and END.
If OBJECT is a string, encrypt it in its entirety, ignoring START
and END, and return the encrypted string.
(fn OBJECT &optional START END)
(defalias 'rot13 #[769 "\300!\203 rq\210\301\")\207\302!\207" [bufferp rot13-region rot13-string] 6 (#$ . 973)])
#@49 Return ROT13 encryption of STRING.
(fn STRING)
(defalias 'rot13-string #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210\311ed\"\210\312 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 rot13-region buffer-string] 8 (#$ . 1346)])
#@83 ROT13 encrypt the region between START and END in current buffer.
(fn START END)
(defalias 'rot13-region #[514 "\301#\207" [rot13-translate-table translate-region] 6 (#$ . 1683) "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 #[0 "\301p\302\"\303\"\207" [rot13-display-table display-buffer t set-window-display-table] 4 (#$ . 1878) nil])
#@58 Toggle the use of ROT13 encoding for the current window.
(defalias 'toggle-rot13-mode #[0 "\301 =\203
\302\303 \304\"\207\301 ?\205 \302\303 \"\207" [rot13-display-table window-display-table set-window-display-table selected-window nil] 3 (#$ . 2345) nil])
(provide 'rot13)
Mini Shell