/[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.37 by handa, Fri May 30 06:03:22 2003 UTC revision 1.125.2.38 by handa, Fri Jun 6 03:57:34 2003 UTC
# Line 1994  usage: (set-charset-priority &rest chars Line 1994  usage: (set-charset-priority &rest chars
1994       int nargs;       int nargs;
1995       Lisp_Object *args;       Lisp_Object *args;
1996  {  {
1997    Lisp_Object new_head = Qnil, old_list, arglist[2];    Lisp_Object new_head, old_list, arglist[2];
1998    int i, id;    int i, id;
1999    
2000    old_list = Fcopy_sequence (Vcharset_ordered_list);    old_list = Fcopy_sequence (Vcharset_ordered_list);
2001      new_head = Qnil;
2002    for (i = 0; i < nargs; i++)    for (i = 0; i < nargs; i++)
2003      {      {
2004        CHECK_CHARSET_GET_ID (args[i], id);        CHECK_CHARSET_GET_ID (args[i], id);
2005        old_list = Fdelq (make_number (id), old_list);        if (! NILP (Fmemq (make_number (id), old_list)))
2006        new_head = Fcons (make_number (id), new_head);          {
2007              old_list = Fdelq (make_number (id), old_list);
2008              new_head = Fcons (make_number (id), new_head);
2009            }
2010      }      }
2011    arglist[0] = Fnreverse (new_head);    arglist[0] = Fnreverse (new_head);
2012    arglist[1] = old_list;    arglist[1] = old_list;

Legend:
Removed from v.1.125.2.37  
changed lines
  Added in v.1.125.2.38

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