From d017b41edc389290aa68be19061fe1e3362a0a47 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 30 Oct 2002 00:38:43 +0000 Subject: [PATCH] (Fset_charset_priority): Update Viso_2022_charset_list. --- src/charset.c | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/charset.c b/src/charset.c index 365a72f6480..65c95121514 100644 --- a/src/charset.c +++ b/src/charset.c @@ -2007,6 +2007,15 @@ usage: (set-charset-priority &rest charsets) */) arglist[1] = old_list; Vcharset_ordered_list = Fnconc (2, arglist); charset_ordered_list_tick++; + + for (old_list = Vcharset_ordered_list, new_head = Qnil; + CONSP (old_list); old_list = XCDR (old_list)) + { + if (Fmemq (XCAR (old_list), Viso_2022_charset_list)) + new_head = Fcons (XCAR (old_list), new_head); + } + Viso_2022_charset_list = Fnreverse (new_head); + return Qnil; } -- 2.39.5