(sort-coding-systems): Lower the

priorities of all utf-16 base coding systems.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d529fc50928279fb0fd8bf3c2412cd7cba9cb821..fd10573cc5e33e56fe30b72dec1a1c73f5c8bf75 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-11  Kenichi Handa  <handa@etlken2>
+
+       * international/mule-cmds.el (sort-coding-systems): Lower the
+       priorities of all utf-16 base coding systems.
+
 2003-04-10  Juanma Barranquero  <lektu@terra.es>
 
        * frame.el (modify-all-frames-parameters): Deleted.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 82c9af3316107dcf03208eee31721b5863c06656..f98426905b65d2312b41aeb80399b4d7afe21063 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -430,8 +430,8 @@ non-nil, it is used to sort CODINGS in the different way than above."
                               ;; 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)