| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/textmodes/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
#@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)) (#$ . 85))
#@159 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).
(fn FILENAME)
(defalias 'po-find-charset #[257 "\211:\205 \211A\300\203 q\210eb\210\211\204; \301\302\300\303#\204; \204; \212db\210\304\300`S`\305\\S$\211A@\305W\266\202)\202 \301\306\300\303#\203G \307\310!\207\211\204O \203Q \300\207\212db\210\304\300`S`\311\\S$\210)\301\306\300\303#\205l \307\310!\207" [nil re-search-forward "^msgid" t insert-file-contents-literally 4096 "^\"Content-Type:[ ]*text/plain;[ ]*charset=\\(.*\\)\\\\n\"" match-string 1 1024] 9 (#$ . 370)])
#@226 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.
(fn OPERATION FILENAME)
(defalias 'po-find-file-coding-system-guts #[514 "\303=\205\231 \211:\203 \304A!\204 \305!\205\231 \306\307\310\"r\211q\210\311\312\"\216\313\314!\206. \315\316\317 \310#\211\262\203? \211A\202\222 \317\n\310#\211\262\204Y \317\320\321\322#\n\310#\211\262\203` \323@!\202\222 \324\325!\203j \326\202\222 \327\325\316\310#\210\317\n\310#\211\262\204\212 \317\320\321\322#\n\310#\211\262\203\221 \323@!\202\222 \326)C\266\202*\262\207" [coding-system-for-read po-content-type-charset-alist coding-system-alist insert-file-contents buffer-live-p file-exists-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] no-conversion po-find-charset "ascii" nil assoc-string subst-char-in-string 95 45 intern featurep code-pages raw-text require] 10 (#$ . 1007)])
#@165 Return a (DECODING . ENCODING) pair, according to PO file's charset.
Called through `file-coding-system-alist', before the file is visited for real.
(fn ARG-LIST)
(defalias 'po-find-file-coding-system #[257 "\300@A@\"\207" [po-find-file-coding-system-guts] 4 (#$ . 2073)])
(provide 'po)