# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1069501257 0
# Node ID 17d1d4813c04b28f12c6d404551f8129c0d0d968
# Parent  fc9cda144ffc9d7228e3b1fdb0bfaacba3f27c87
(find_charsets_in_text): Delete unused locale variable.
(Fset_charset_priority): Update Vemacs_mule_charset_list too.

diff -r fc9cda144ffc -r 17d1d4813c04 src/charset.c
--- a/src/charset.c	Sat Nov 22 11:39:53 2003 +0000
+++ b/src/charset.c	Sat Nov 22 11:40:57 2003 +0000
@@ -1375,7 +1375,6 @@
      int multibyte;
 {
   const unsigned char *pend = ptr + nbytes;
-  int ncharsets = ASIZE (charsets);
 
   if (nchars == nbytes)
     {
@@ -1989,6 +1988,7 @@
      Lisp_Object *args;
 {
   Lisp_Object new_head, old_list, arglist[2];
+  Lisp_Object list_2022, list_emacs_mule;
   int i, id;
 
   old_list = Fcopy_sequence (Vcharset_ordered_list);
@@ -2007,13 +2007,16 @@
   Vcharset_ordered_list = Fnconc (2, arglist);
   charset_ordered_list_tick++;
 
-  for (old_list = Vcharset_ordered_list, new_head = Qnil;
+  for (old_list = Vcharset_ordered_list, list_2022 = list_emacs_mule = Qnil;
        CONSP (old_list); old_list = XCDR (old_list))
     {
       if (! NILP (Fmemq (XCAR (old_list), Viso_2022_charset_list)))
-	new_head = Fcons (XCAR (old_list), new_head);
+	list_2022 = Fcons (XCAR (old_list), list_2022);
+      if (! NILP (Fmemq (XCAR (old_list), Vemacs_mule_charset_list)))
+	list_emacs_mule = Fcons (XCAR (old_list), list_emacs_mule);
     }
-  Viso_2022_charset_list = Fnreverse (new_head);
+  Viso_2022_charset_list = Fnreverse (list_2022);
+  Vemacs_mule_charset_list = Fnreverse (list_emacs_mule);
 
   return Qnil;
 }