Current File : //usr/local/share/emacs/27.2/lisp/textmodes/po.elc
;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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@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:\205 A\306\n\203 \nq\210eb\210 \204? \307\310\306\311#\204? \n\204? \212db\210\312\306`S`\313\\S$\211 A@\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)
Mini Shell