;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@110 How to convert a GNU libc/libiconv canonical charset name as seen in Content-Type into a Mule coding system. (defconst po-content-type-charset-alist '(("ASCII" . undecided) ("ANSI_X3.4-1968" . undecided) ("US-ASCII" . undecided) ("ISO-8859-1" . iso-8859-1) ("ISO_8859-1" . iso-8859-1) ("ISO-8859-2" . iso-8859-2) ("ISO_8859-2" . iso-8859-2) ("ISO-8859-3" . iso-8859-3) ("ISO_8859-3" . iso-8859-3) ("ISO-8859-4" . iso-8859-4) ("ISO_8859-4" . iso-8859-4) ("ISO-8859-5" . iso-8859-5) ("ISO_8859-5" . iso-8859-5) ("ISO-8859-7" . iso-8859-7) ("ISO_8859-7" . iso-8859-7) ("ISO-8859-8" . iso-8859-8) ("ISO_8859-8" . iso-8859-8) ("ISO-8859-9" . iso-8859-9) ("ISO_8859-9" . iso-8859-9) ("ISO-8859-15" . iso-8859-15) ("ISO_8859-15" . iso-8859-15) ("KOI8-R" . koi8-r) ("CP437" . cp437) ("CP775" . cp775) ("CP850" . cp850) ("CP852" . cp852) ("CP855" . cp855) ("CP857" . cp857) ("CP861" . cp861) ("CP862" . cp862) ("CP864" . cp864) ("CP865" . cp865) ("CP866" . cp866) ("CP869" . cp869) ("CP1250" . cp1250) ("CP1251" . cp1251) ("CP1252" . iso-8859-1) ("CP1253" . cp1253) ("CP1254" . iso-8859-9) ("CP1255" . iso-8859-8) ("CP1257" . cp1257) ("GB2312" . cn-gb-2312) ("EUC-JP" . euc-jp) ("EUC-KR" . euc-kr) ("BIG5" . big5) ("SHIFT_JIS" . shift_jis) ("TIS-620" . tis-620) ("VISCII" . viscii) ("UTF-8" . utf-8)) (#$ . 409)) #@31 Return PO file charset value. (defalias 'po-find-charset #[(filename) "\304\305\204)\306\307\305\310#\204)\212db\210\311\n\305`S`\312\\S$\211A@\312W*\202\306 \305\310#\2037\313\314!\202Z\203?\305\202Z\212db\210\311\n\305`S`\315\\S$\210)\306 \305\310#\205Z\313\314!*\207" [short-read charset-regexp filename pair "^\"Content-Type: text/plain;[ ]*charset=\\(.*\\)\\\\n\"" nil re-search-forward "^msgid" t insert-file-contents-literally 4096 match-string 1 1024] 7 (#$ . 1719) nil]) #@151 Return a Mule (DECODING . ENCODING) pair, according to PO file charset. Called through file-coding-system-alist, before the file is visited for real. (defalias 'po-find-file-coding-system-guts #[(operation filename) "\306=\205|\307 !\205|\310\311\312 !\206\313\211\226 \227\314\f\"A\211\206,\315 !\211\2039\316!\202: \203M\317!\203M\202x\320\231\204w\321\322\"\203w\314\323\324\"\325 \"\203w\326\323\324\"!\210\327!\202x\311.C!\207" [operation filename coding-system-for-read charset charset-upper charset-lower insert-file-contents file-exists-p po-with-temp-buffer no-conversion po-find-charset "ascii" assoc intern-soft symbol-name coding-system-p "23" string-match "\\`cp[1-9][0-9][0-9]?\\'" substring 2 cp-supported-codepages codepage-setup intern po-content-type-charset-alist candidate try-symbol try-string emacs-version] 6 (#$ . 2222)]) #@151 Return a Mule (DECODING . ENCODING) pair, according to PO file charset. Called through file-coding-system-alist, before the file is visited for real. (defalias 'po-find-file-coding-system #[(arg-list) "\301@A@\"\207" [arg-list po-find-file-coding-system-guts] 3 (#$ . 3121)]) (provide 'po-compat)