| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. #@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) (#$ . 84)) #@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) (#$ . 341)) #@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 (#$ . 648)]) #@49 Return ROT13 encryption of STRING. (fn STRING) (defalias 'rot13-string #[257 "\300\301\302\"r\211q\210\303\304\"\216c\210\305ed\"\210\306 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] rot13-region buffer-string] 5 (#$ . 1021)]) #@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 (#$ . 1332) "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 (#$ . 1527) 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 (#$ . 1994) nil]) (provide 'rot13)