diff options
author | Michael Olson <mwolson@gnu.org> | 2006-12-07 14:35:00 +0000 |
---|---|---|
committer | Michael Olson <mwolson@gnu.org> | 2006-12-07 14:35:00 +0000 |
commit | 3c42fe2cc29a102faddc818a74fac9dfe34bbeac (patch) | |
tree | 693ad5b37263b7924472c61e8ddbec72f8cb45c0 /emms-i18n.el | |
parent | a37a70fffeeb70f42964a3d24d508c32eee2ec0b (diff) |
Fix various byte-compiler warnings throughout
darcs-hash:20061207143511-1bfb2-90e8bee5074d6ef5ca4c9998886d28eedf6df671.gz
Diffstat (limited to 'emms-i18n.el')
-rw-r--r-- | emms-i18n.el | 36 |
1 files changed, 19 insertions, 17 deletions
diff --git a/emms-i18n.el b/emms-i18n.el index 52e315a..c5792aa 100644 --- a/emms-i18n.el +++ b/emms-i18n.el @@ -45,6 +45,25 @@ (eval-when-compile (require 'cl)) +;; TODO: Change these to use defcustom + +(defvar emms-nerver-used-coding-system + '(raw-text undecided) + "If the `emms-coding-dectect-functions' return coding system in +this list, use `emms-default-coding-system' instead.") + +(defvar emms-coding-system-for-read 'utf-8 + "If coding detect failed, use this for decode") + +(defvar emms-default-coding-system nil + "If non-nil, used for decode and encode") + +(defvar emms-coding-dectect-functions nil + "A list of function to call to detect codings") + +(defvar emms-detect-max-size 10000 + "Max bytes to detect coding system. Nil mean scan whole buffer.") + (defun emms-iconv (from to str) "Convert STR from FROM coding to TO coding." (if (and from to) @@ -118,23 +137,6 @@ otherwise, it is pass all parameter to `call-process'." (process-coding-system-alist nil)) (apply 'call-process args)) (apply 'call-process args)))) - -(defvar emms-nerver-used-coding-system - '(raw-text undecided) - "If the `emms-coding-dectect-functions' return coding system in -this list, use `emms-default-coding-system' instead.") - -(defvar emms-coding-system-for-read 'utf-8 - "If coding detect failed, use this for decode") - -(defvar emms-default-coding-system nil - "If non-nil, used for decode and encode") - -(defvar emms-coding-dectect-functions nil - "A list of function to call to detect codings") - -(defvar emms-detect-max-size 10000 - "Max bytes to detect coding system. Nil mean scan whole buffer.") (defun emms-detect-coding-function (size) (detect-coding-region (point) |