From 1e29007938c22c7c05652a3d82d9b4b9de9f6050 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 6 May 2003 06:59:34 +0000 Subject: [PATCH] (sort-coding-systems): Set lower priority to a utf-16 base coding system. --- lisp/international/mule-cmds.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) 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)) -- 2.39.5