|
Server IP : 111.118.215.189 / Your IP : 18.223.23.24 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:29 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/rot13.el ;;; in Emacs version 24.3.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) (#$ . 548)) #@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) (#$ . 811)) #@56 Return ROT13 encryption of OBJECT, a buffer or string. (defalias 'rot13 #[(object &optional start end) "\303!\203 rq\210\304 \n\")\207\305!\207" [object start end bufferp rot13-region rot13-string] 3 (#$ . 1113)]) #@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 (#$ . 1337)]) #@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 (#$ . 1648) "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 (#$ . 1846) 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 (#$ . 2319) nil]) (provide 'rot13)