From: Kenichi Handa <handa@m17n.org>
Date: Tue, 6 May 2003 06:59:34 +0000 (+0000)
Subject: (sort-coding-systems): Set lower
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e29007938c22c7c05652a3d82d9b4b9de9f6050;p=emacs.git

(sort-coding-systems): Set lower
priority to a utf-16 base coding system.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 64561dc4584..9e863d6ee93 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -398,9 +398,18 @@ non-nil, it is used to sort CODINGS differently from the above recipe."
 		    (let ((base (coding-system-base x)))
 		      (+ (if (eq base most-preferred) 64 0)
 			 (let ((mime (coding-system-get base 'mime-charset)))
+			   ;; Prefer coding systems corresponding to a
+			   ;; MIME charset.
 			   (if mime
-			       (if (string-match "^x-" (symbol-name mime))
-				   16 32)
+			       ;; Lower utf-16 priority so that we
+			       ;; normally prefer utf-8 to it, and put
+			       ;; x-ctext below that.
+			       (cond ((string-match "^utf-16"
+						    (symbol-name mime))
+				      16)
+				     ((string-match "^x-" (symbol-name mime))
+				      8)
+				     (t 32))
 			     0))
 			 (if (memq base lang-preferred) 8 0)
 			 (if (string-match "-with-esc$" (symbol-name base))