(Fset_charset_priority): Update Viso_2022_charset_list.

1 files changed, 9 insertions, 0 deletions

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;
 }