;ELC ;;; Compiled ;;; in Emacs version 27.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@147 Alist of coding system versus GNU libc/libiconv canonical charset name. Contains canonical charset names that don't correspond to coding systems. (defconst po-content-type-charset-alist '(("ASCII" . undecided) ("ANSI_X3.4-1968" . undecided) ("US-ASCII" . undecided)) (#$ . 409)) #@144 Return PO charset value for FILENAME. If FILENAME is a cons cell, its CDR is a buffer that already contains the PO file (but not yet decoded). (defalias 'po-find-charset #[(filename) "\305:\205A\306\n\203\nq\210eb\210 \204?\307\310\306\311#\204?\n\204?\212db\210\312\306`S`\313\\S$\211A@\313W*\202\307 \306\311#\203M\314\315!\202t \204U\n\203Y\306\202t\212db\210\312\306`S`\316\\S$\210)\307 \306\311#\205t\314\315!+\207" [filename short-read buf charset-regexp pair "^\"Content-Type:[ ]*text/plain;[ ]*charset=\\(.*\\)\\\\n\"" nil re-search-forward "^msgid" t insert-file-contents-literally 4096 match-string 1 1024] 7 (#$ . 695)]) #@201 Return a (DECODING . ENCODING) pair for OPERATION on PO file FILENAME. Do so according to FILENAME's declared charset. FILENAME may be a cons (NAME . BUFFER). In that case, detect charset in BUFFER. (defalias 'po-find-file-coding-system-guts #[(operation filename) "\306=\205\224 :\203\307 A!\204\310 !\205\224\311\312!r\nq\210\313\216\314\315 !\206+\316\317\320\f\321#\211\203> A\202\221\320\f\321#\211\204X\320\322\323\324\f#\321#\211\203_\325 @!\202\221\326\327!\203i\330\202\221\331\327\317\321#\210\320\f\321#\211\204\211\320\322\323\324\f#\321#\211\203\220\325 @!\202\221\330.C\207" [operation filename #1=#:temp-buffer coding-system-for-read charset assoc insert-file-contents buffer-live-p file-exists-p generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] no-conversion po-find-charset "ascii" nil assoc-string t subst-char-in-string 95 45 intern featurep code-pages raw-text require po-content-type-charset-alist coding-system-alist] 5 (#$ . 1360)]) #@150 Return a (DECODING . ENCODING) pair, according to PO file's 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 (#$ . 2407)]) (provide 'po)