/[emacs]/emacs/src/charset.c
ViewVC logotype

Diff of /emacs/src/charset.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.125.2.32 by handa, Wed Oct 30 00:38:43 2002 UTC revision 1.125.2.33 by handa, Wed Oct 30 00:56:45 2002 UTC
# Line 2011  usage: (set-charset-priority &rest chars Line 2011  usage: (set-charset-priority &rest chars
2011    for (old_list = Vcharset_ordered_list, new_head = Qnil;    for (old_list = Vcharset_ordered_list, new_head = Qnil;
2012         CONSP (old_list); old_list = XCDR (old_list))         CONSP (old_list); old_list = XCDR (old_list))
2013      {      {
2014        if (Fmemq (XCAR (old_list), Viso_2022_charset_list))        if (! NILP (Fmemq (XCAR (old_list), Viso_2022_charset_list)))
2015          new_head = Fcons (XCAR (old_list), new_head);          new_head = Fcons (XCAR (old_list), new_head);
2016      }      }
2017    Viso_2022_charset_list = Fnreverse (new_head);    Viso_2022_charset_list = Fnreverse (new_head);

Legend:
Removed from v.1.125.2.32  
changed lines
  Added in v.1.125.2.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26