From: Kenichi Handa <handa@m17n.org>
Date: Sat, 22 Nov 2003 11:40:57 +0000 (+0000)
Subject: (find_charsets_in_text): Delete unused locale variable.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1703
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=321c819c906071fc2f9c20e4aa2d02698ac49c01;p=emacs.git

(find_charsets_in_text): Delete unused locale variable.
(Fset_charset_priority): Update Vemacs_mule_charset_list too.
---

diff --git a/src/charset.c b/src/charset.c
index 65e233fd498..20b4f04065f 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -1375,7 +1375,6 @@ find_charsets_in_text (ptr, nchars, nbytes, charsets, table, multibyte)
      int multibyte;
 {
   const unsigned char *pend = ptr + nbytes;
-  int ncharsets = ASIZE (charsets);
 
   if (nchars == nbytes)
     {
@@ -1989,6 +1988,7 @@ usage: (set-charset-priority &rest charsets)  */)
      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 @@ usage: (set-charset-priority &rest charsets)  */)
   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;
 }