;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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) (#$ . 109)) #@48 If coding detect fails, use this for decoding. (defvar emms-i18n-coding-system-for-read 'utf-8 (#$ . 319)) #@49 If non-nil, use this for decoding and encoding. (defvar emms-i18n-default-coding-system '(no-conversion . no-conversion) (#$ . 432)) #@48 A list of functions to call to detect codings. (defvar emms-i18n-coding-detect-functions nil (#$ . 571)) #@91 Maximum amount of bytes to detect the coding system. nil means to scan the whole buffer. (defvar emms-i18n-detect-max-size 10000 (#$ . 682)) #@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 (#$ . 830)]) #@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 (#$ . 1036)]) #@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 (#$ . 1223)]) #@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 (#$ . 1465) "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 (#$ . 1989)]) #@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\305\"r\211q\210\306\307\"\216A\203\310\311\312\"*\202\"\311\312\"*\207" [emms-i18n-default-coding-system process-coding-system-alist default-process-coding-system generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] nil apply call-process] 5 (#$ . 3117)]) #@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 (#$ . 3770)]) #@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\"\210\303\212\203q\210eb\210\306V\203.\307\310\"\262\311! \235\203.\305!\262\211\203:\311! \235\203>\n\202?\211)\207" [emms-i18n-coding-detect-functions emms-i18n-never-used-coding-system emms-i18n-coding-system-for-read nil append emms-i18n-detect-coding-function 0 run-hook-with-args-until-success func coding-system-base] 7 (#$ . 3943)])