|
Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/textmodes/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:48 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/textmodes/po.el
;;; in Emacs version 24.3.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)) (#$ . 556))
#@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 (#$ . 842)])
#@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*" ((byte-code "\301!\203\n \302!\210\301\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 (#$ . 1507)])
#@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 (#$ . 2570)])
(provide 'po)