Current File : //usr/share/emacs/24.3/lisp/international/utf-7.elc

;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\2026m\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\220m\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)