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; |