# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1041624971 0
# Node ID 835ac7993b8d08d2e12970ec53979d6f297f5e95
# Parent  79573bfb289929cd74fe7f1c89eff33e6ea06760
(sort-coding-systems): Adjust
priority of utf-16 and x-ctext.

diff -r 79573bfb2899 -r 835ac7993b8d lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Fri Jan 03 20:12:51 2003 +0000
+++ b/lisp/international/mule-cmds.el	Fri Jan 03 20:16:11 2003 +0000
@@ -425,9 +425,18 @@
 		    (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 ((or (eq base 'mule-utf-16-le)
+					  (eq base 'mule-utf-16-be))
+				      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))