;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@66 Mapping from base64-encoded character to the byte it represents. (defconst tramp-uu-b64-alphabet "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" (#$ . 87)) #@53 Alist of mapping from base64 character to its byte. (defconst tramp-uu-b64-char-to-byte (byte-code "\301C\302\303\304\"\"\207" [tramp-uu-b64-alphabet 0 mapcar make-closure #[257 "\211\300\242B\300\211\242T\240\210\207" [V0] 4 "\n\n(fn C)"]] 5) (#$ . 268)) #@48 Return the character encoding BYTE. (fn BYTE) (defalias 'tramp-uu-byte-to-uu-char #[257 "\211\300U\203\301\207\211\302\\\207" [0 96 32] 3 (#$ . 532)]) #@53 Return the byte that is encoded as CHAR. (fn CHAR) (defalias 'tramp-uu-b64-char-to-byte #[257 "\211\236A\207" [tramp-uu-b64-char-to-byte] 3 (#$ . 692)]) #@57 UU-encode the region between BEG and END. (fn BEG END) (defalias 'tramp-uuencode-region #[514 "\300\301#\302\211\212b\210\303\262W\203O`f\262\304\305!\210\211\306=\203,\307c\210S\262\2027\310\311!!c\210T\262\312\246\303U\203\212\313 \210\314\315!c\210)\316c\210\202\312\246\303U\204k\212\313 \210\314\317Z\320\246\\!c\210)\316c\210\321c\210b\210\322c)\207" [base64-encode-region t nil 0 delete-char 1 61 "`" tramp-uu-byte-to-uu-char tramp-uu-b64-char-to-byte 60 beginning-of-line char-to-string 77 "\n" 32 45 "`\nend\n" "begin 600 xxx\n"] 9 (#$ . 853)]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-uu force] 3] provide tramp-uu] 3)