# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1050021700 0
# Node ID 32b881425e3d398f4bda0815c4c62b7f61f3d252
# Parent  a3dafc05fe673d2d303ebdb9686c9932e46bdc01
(sort-coding-systems): Lower the
priorities of all utf-16 base coding systems.

diff -r a3dafc05fe67 -r 32b881425e3d lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Thu Apr 10 16:31:00 2003 +0000
+++ b/lisp/international/mule-cmds.el	Fri Apr 11 00:41:40 2003 +0000
@@ -430,8 +430,8 @@
 			       ;; 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))
+			       (cond ((string-match "utf-16"
+						    (symbol-name mime))
 				      16)
 				     ((string-match "^x-" (symbol-name mime))
 				      8)