Current File : //proc/self/root/kunden/usr/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:\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)