aboutsummaryrefslogtreecommitdiff
path: root/emms-i18n.el
diff options
context:
space:
mode:
authorMichael Olson <mwolson@gnu.org>2006-12-07 14:35:00 +0000
committerMichael Olson <mwolson@gnu.org>2006-12-07 14:35:00 +0000
commit3c42fe2cc29a102faddc818a74fac9dfe34bbeac (patch)
tree693ad5b37263b7924472c61e8ddbec72f8cb45c0 /emms-i18n.el
parenta37a70fffeeb70f42964a3d24d508c32eee2ec0b (diff)
Fix various byte-compiler warnings throughout
darcs-hash:20061207143511-1bfb2-90e8bee5074d6ef5ca4c9998886d28eedf6df671.gz
Diffstat (limited to 'emms-i18n.el')
-rw-r--r--emms-i18n.el36
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)