;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (provide 'emms-i18n) #@128 If the `emms-i18n-coding-detect-functions' return a coding system in this list, use `emms-i18n-default-coding-system' instead. (defvar emms-i18n-never-used-coding-system '(raw-text undecided) (#$ . 430)) #@48 If coding detect fails, use this for decoding. (defvar emms-i18n-coding-system-for-read 'utf-8 (#$ . 640)) #@49 If non-nil, use this for decoding and encoding. (defvar emms-i18n-default-coding-system '(no-conversion . no-conversion) (#$ . 753)) #@48 A list of functions to call to detect codings. (defvar emms-i18n-coding-detect-functions nil (#$ . 892)) #@91 Maximum amount of bytes to detect the coding system. nil means to scan the whole buffer. (defvar emms-i18n-detect-max-size 10000 (#$ . 1003)) #@69 Convert string STR from FROM coding to TO coding. (fn FROM TO STR) (defalias 'emms-i18n-iconv #[771 "\203\203\300\301\"\"\207\207" [decode-coding-string encode-coding-string] 7 (#$ . 1152)]) #@24 (fn BEG END FROM TO) (defalias 'emms-i18n-iconv-region #[1028 "\205\211\205\214}\210\300ed#\210\301ed#)\207" [encode-coding-region decode-coding-region] 8 (#$ . 1359)]) #@116 Convert buffer BUF from FROM coding to TO coding. BUF defaults to the current buffer. (fn FROM TO &optional BUF) (defalias 'emms-i18n-iconv-buffer #[770 "\212\211\203\211q\210\300ed$)\207" [emms-i18n-iconv-region] 8 (#$ . 1546)]) #@71 Set `emms-i18n-default-coding-system'. (fn READ-CODING WRITE-CODING) (defalias 'emms-i18n-set-default-coding-system #[514 "\302!\205\302!\205B\303@\203\304\305@\"\202\306\304\307A\206( A\"P!\207" [emms-i18n-default-coding-system default-process-coding-system coding-system-p message format "The coding system for reading is %S." "Good, you want me to detect the coding system!" " The coding system for writing is %S."] 7 (#$ . 1788) "zSet coding system for read: \nzSet coding system for write: "]) #@712 Run a program and return the program result. If the car part of `emms-i18n-default-coding-system' is non-nil, the program result will be decoded using the car part of `emms-i18n-default-coding-system'. Otherwise, use `emms-i18n-coding-detect-functions' to detect the coding system of the result. If the `emms-i18n-coding-detect-functions' failed, use `emms-i18n-detect-coding-function' to detect coding system. If all the coding systems are nil or in `emms-i18n-never-used-coding-system', decode the result using `emms-i18n-coding-system-for-read'. ARGS are the same as in `call-process', except BUFFER should always have the value t. Otherwise the coding detection will not be performed. (fn &rest ARGS) (defalias 'emms-i18n-call-process-simple #[128 "\303!\304\211\211\3058\306=\203\n@\240\210`\262\307\310\"\262\3058\306=\203=\n@\311=\203=\214\211`}\210\312ed\313 #\210)*\207" [default-process-coding-system process-coding-system-alist emms-i18n-default-coding-system copy-tree nil 2 t apply call-process no-conversion decode-coding-region emms-i18n-detect-buffer-coding-system] 9 (#$ . 2312)]) #@273 Run the program like `call-process'. If the cdr part of `emms-i18n-default-coding-system' is non-nil, the string in ARGS will be encoded by the cdr part of `emms-i18n-default-coding-system'; otherwise, all parameters are simply passed to `call-process'. (fn &rest ARGS) (defalias 'emms-i18n-call-process #[128 "\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216A\203$\314\315\316\"*\202(\315\316\"*\207" [emms-i18n-default-coding-system process-coding-system-alist default-process-coding-system generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil apply call-process] 8 (#$ . 3440)]) #@13 (fn SIZE) (defalias 'emms-i18n-detect-coding-function #[257 "\301`\204\n\202 ^`\\\302#\207" [emms-i18n-detect-max-size detect-coding-region t] 5 (#$ . 4118)]) #@84 Before calling this function, make sure the buffer is literal. (fn &optional BUF) (defalias 'emms-i18n-detect-buffer-coding-system #[256 "deZ\303\304\"\305\212\203q\210eb\210\306V\203,\307\310\"\262\311! \235\203,\304!\262\211\2038\311! \235\203<\n\202=\211)\207" [emms-i18n-coding-detect-functions emms-i18n-never-used-coding-system emms-i18n-coding-system-for-read append emms-i18n-detect-coding-function nil 0 run-hook-with-args-until-success func coding-system-base] 7 (#$ . 4291)])