Lines Matching refs:charset
73 (defconst po-content-type-charset-alist
151 "How to convert a GNU libc/libiconv canonical charset name as seen in
154 (defun po-find-charset (filename)
155 "Return PO file charset value."
157 (let ((charset-regexp
158 "^\"Content-Type: text/plain;[ \t]*charset=\\(.*\\)\\\\n\"")
160 ;; Try the first 4096 bytes. In case we cannot find the charset value
171 (cond ((re-search-forward charset-regexp nil t) (match-string 1))
174 ;; value was loaded. Load the next 1024 bytes; if charset still
181 (if (re-search-forward charset-regexp nil t)
188 Return a Mule (DECODING . ENCODING) pair, according to PO file charset.
194 (charset (or (po-find-charset filename) "ascii"))
195 (charset-upper (upcase charset))
196 (charset-lower (downcase charset))
198 (cdr (assoc charset-upper po-content-type-charset-alist)))
199 (try-symbol (or candidate (intern-soft charset-lower)))
201 (if try-symbol (symbol-name try-symbol) charset-lower)))
217 Return a Mule (DECODING . ENCODING) pair, according to PO file charset.
223 (let* ((charset (or (po-find-charset filename)
225 (charset-upper (upcase charset))
226 (charset-lower (intern (downcase charset))))
227 (list (or (cdr (assoc charset-upper
228 po-content-type-charset-alist))
229 (if (memq charset-lower (coding-system-list))
230 charset-lower
236 Return a Mule (DECODING . ENCODING) pair, according to PO file charset.
243 Return a Mule (DECODING . ENCODING) pair, according to PO file charset.
255 ;; cs.po ; gettext/po/cs.el, charset=ISO-8859-2
256 ;; cs-modified.po ; gettext/po/cs.el, charset=ISO_8859-2
257 ;; de.po ; gettext/po/de.el, charset=UTF-8, if $emacsimpl = emacs
262 ;; Verify charset marker in status line ('2' = ISO-8859-2, 'u' = UTF-8).