[Emacs-diffs] Changes to emacs/src/charset.c [emacs-unicode-2]

[Kenichi Handa]

Index: emacs/src/charset.c
diff -c emacs/src/charset.c:1.134.6.3 emacs/src/charset.c:1.134.6.4
*** emacs/src/charset.c:1.134.6.3       Mon Oct  6 07:19:39 2003
--- emacs/src/charset.c Sat Nov 22 06:40:57 2003
***************
*** 1375,1381 ****
       int multibyte;
  {
    const unsigned char *pend = ptr + nbytes;
-   int ncharsets = ASIZE (charsets);
  
    if (nchars == nbytes)
      {
--- 1375,1380 ----
***************
*** 1989,1994 ****
--- 1988,1994 ----
       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,2019 ****
    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 (! NILP (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;
  }
--- 2007,2022 ----
    Vcharset_ordered_list = Fnconc (2, arglist);
    charset_ordered_list_tick++;
  
!   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)))
!       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 (list_2022);
!   Vemacs_mule_charset_list = Fnreverse (list_emacs_mule);
  
    return Qnil;
  }