diff src/charset.c @ 89261:86acab1ffbe2

(Fset_charset_priority): Update Viso_2022_charset_list.

--- a/src/charset.c	Tue Oct 29 12:14:44 2002 +0000
+++ b/src/charset.c	Wed Oct 30 00:38:43 2002 +0000
@@ -2007,6 +2007,15 @@
   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;
 }