[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/international mule-cmds.el [EMACS_23_1_RC]
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] emacs/lisp/international mule-cmds.el [EMACS_23_1_RC] |
Date: |
Wed, 15 Jul 2009 12:29:31 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch: EMACS_23_1_RC
Changes by: Kenichi Handa <handa> 09/07/15 12:29:31
Modified files:
lisp/international: mule-cmds.el
Log message:
(set-language-environment-charset):
If coding-system-charset-list returns `iso-2022' or `emacs-mule',
ignore them.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-cmds.el?cvsroot=emacs&only_with_tag=EMACS_23_1_RC&r1=1.360.2.1&r2=1.360.2.2
Patches:
Index: mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.360.2.1
retrieving revision 1.360.2.2
diff -u -b -r1.360.2.1 -r1.360.2.2
--- mule-cmds.el 7 Jul 2009 05:59:18 -0000 1.360.2.1
+++ mule-cmds.el 15 Jul 2009 12:29:30 -0000 1.360.2.2
@@ -2034,7 +2034,9 @@
;; coding systems of higher priorities in this environment.
(let ((charsets (get-language-info language-name 'charset)))
(dolist (coding (get-language-info language-name 'coding-priority))
- (setq charsets (append charsets (coding-system-charset-list coding))))
+ (let ((list (coding-system-charset-list coding)))
+ (if (consp list)
+ (setq charsets (append charsets list)))))
(if charsets
(apply 'set-charset-priority charsets))))