From: Kenichi Handa <handa@m17n.org>
Date: Wed, 30 Oct 2002 00:38:43 +0000 (+0000)
Subject: (Fset_charset_priority): Update Viso_2022_charset_list.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~197
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d017b41edc389290aa68be19061fe1e3362a0a47;p=emacs.git

(Fset_charset_priority): Update Viso_2022_charset_list.
---

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