|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 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/international/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:15 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/international/utf-7.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@78 Decode LEN bytes of UTF-7 at point.
IMAP non-nil means use the IMAP version.
(defalias 'utf-7-decode #[(len imap) "\212\214``\\}\210 \203 \306\202 \307 \203 \310\202 \311m\204s \312w\210m\204 \312u\210`\n\312w \312f\313=\203< \314\315!\210\f\316U\204o \317\f[\320\" \321\322\"\210 \203Z \323
`\324\325$\210\326
`\"\210)\327
`\330#\210\212
b\210\314\331!\210)*\202 *deZ*\207" [len imap skip-chars not-esc run-length p "^&" "^+" "A-Za-z0-9+," "A-Za-z0-9+/" nil 45 delete-char 1 0 mod 4 insert-char 61 subst-char-in-region 44 47 base64-decode-region decode-coding-region utf-16be -1 pl] 5 (#$ . 562)])
(defalias 'utf-7-post-read-conversion #[(len) "\301\302\"\207" [len utf-7-decode nil] 3])
(defalias 'utf-7-imap-post-read-conversion #[(len) "\301\302\"\207" [len utf-7-decode t] 3])
#@110 Encode bytes between FROM and TO to UTF-7.
ESC and SKIP-CHARS are adjusted for the normal and IMAP versions.
(defalias 'utf-7-encode #[(from to imap) "p \203\n \306\202 \307 \203 \310\202 \311\312\313 \n# \314\315!q\210
;\203,
c\210\2023 \316
#\210eb\210m\204\226 \317w\210\n\317f=\203N \317u\210\320c\210\2026 m\2046 \nc\210` \f\317w\210\214`}\210\321d\322#\210\323d\"\210 \203{ \324d\325\326$\210b\210\327\317w\210`d|\210* \204\220 m\2046 \320c\210\2026 ,\317\207" [old-buf imap esc skip-chars not-skip-chars from 38 43 " \n
-%'-~" " \n
-*,-[]-}" format "^%s%c" generate-new-buffer " *temp*" insert-buffer-substring nil 45 encode-coding-region utf-16be base64-encode-region subst-char-in-region 47 44 "^= \n" to p] 5 (#$ . 1367)])
(defalias 'utf-7-pre-write-conversion #[(from to) "\302 \303#\207" [from to utf-7-encode nil] 4])
(defalias 'utf-7-imap-pre-write-conversion #[(from to) "\302 \303#\207" [from to utf-7-encode t] 4])
(provide 'utf-7)