From f35fca4a8d8f9b2e7a3aab20b814a4ecb1da37a7 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 6 Jul 1999 07:03:19 +0000 Subject: [PATCH] (reset-language-environment): Regard coding-category `utf-8' and `ucs-4' if they are available. --- lisp/mule/mule-cmds.el | 38 ++++++++++++++++++++++++++------------ 1 file changed, 26 insertions(+), 12 deletions(-) diff --git a/lisp/mule/mule-cmds.el b/lisp/mule/mule-cmds.el index 1baca53..20cd3b5 100644 --- a/lisp/mule/mule-cmds.el +++ b/lisp/mule/mule-cmds.el @@ -1083,18 +1083,32 @@ The default status is as follows: (set-coding-category-system 'no-conversion 'raw-text) (set-coding-category-system 'shift-jis 'shift_jis) (set-coding-category-system 'big5 'big5) - (set-coding-category-system 'ucs-4 'binary) - (set-coding-category-system 'utf-8 'raw-text) - - (set-coding-priority-list - '(iso-8-1 - iso-8-2 - iso-7 - iso-lock-shift - iso-8-designate - no-conversion - shift-jis - big5)) + (cond ((eq (coding-system-type (coding-category-system 'utf-8)) 'utf-8) + (set-coding-category-system 'ucs-4 'iso-10646-ucs-4) + (set-coding-category-system 'utf-8 'utf-8) + (set-coding-priority-list + '(iso-8-1 + iso-8-2 + iso-7 + iso-lock-shift + iso-8-designate + utf-8 + ucs-4 + no-conversion + shift-jis + big5)) + ) + (t + (set-coding-priority-list + '(iso-8-1 + iso-8-2 + iso-7 + iso-lock-shift + iso-8-designate + no-conversion + shift-jis + big5)) + )) ;; (update-coding-systems-internal) -- 1.7.10.4