aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorWilliam Xu <william.xwl@gmail.com>2008-12-21 15:07:50 +0800
committerWilliam Xu <william.xwl@gmail.com>2008-12-21 15:07:50 +0800
commit0176b1afe505be41a2af7920aaa8c99dc3d5407d (patch)
treeefacd9cbb767e0ba5284d71a7265131edb02d182 /lisp
parentfabcafd5e8100e9ac8bb6b68ccc88df3a1309c7a (diff)
emms-i18n-default-coding-system: Change default value from nil to '(no-conversion . no-conversion).
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emms-i18n.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emms-i18n.el b/lisp/emms-i18n.el
index 416a33c..7e95916 100644
--- a/lisp/emms-i18n.el
+++ b/lisp/emms-i18n.el
@@ -55,7 +55,7 @@ this list, use `emms-i18n-default-coding-system' instead.")
(defvar emms-i18n-coding-system-for-read 'utf-8
"If coding detect failed, use this for decode")
-(defvar emms-i18n-default-coding-system nil
+(defvar emms-i18n-default-coding-system '(no-conversion . no-conversion)
"If non-nil, used for decode and encode")
(defvar emms-i18n-coding-dectect-functions nil
@@ -119,7 +119,7 @@ not perform."
(setq pos (point)))
(setq exit (apply 'call-process args))
(when (and (eq (nth 2 args) 't)
- (null (car emms-i18n-default-coding-system)))
+ (eq (car emms-i18n-default-coding-system) 'no-conversion))
(save-restriction
(narrow-to-region pos (point))
(decode-coding-region (point-min) (point-max) (emms-i18n-detect-buffer-coding-system))))