changeset 50535:32b881425e3d

(sort-coding-systems): Lower the priorities of all utf-16 base coding systems.
author Kenichi Handa <handa@m17n.org>
date Fri, 11 Apr 2003 00:41:40 +0000
parents a3dafc05fe67
children 0d62453c3da8
files lisp/international/mule-cmds.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)