From af7c60ca4fabbc0bbcf047c1656930e75ab8ac30 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 6 Jun 2003 03:57:34 +0000 Subject: [PATCH] (Fset_charset_priority): Pay attention to dumplicated arguments. --- src/charset.c | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/charset.c b/src/charset.c index e53fbf915fa..a651d2ffb74 100644 --- a/src/charset.c +++ b/src/charset.c @@ -1994,15 +1994,19 @@ usage: (set-charset-priority &rest charsets) */) int nargs; Lisp_Object *args; { - Lisp_Object new_head = Qnil, old_list, arglist[2]; + Lisp_Object new_head, old_list, arglist[2]; int i, id; old_list = Fcopy_sequence (Vcharset_ordered_list); + new_head = Qnil; for (i = 0; i < nargs; i++) { CHECK_CHARSET_GET_ID (args[i], id); - old_list = Fdelq (make_number (id), old_list); - new_head = Fcons (make_number (id), new_head); + if (! NILP (Fmemq (make_number (id), old_list))) + { + old_list = Fdelq (make_number (id), old_list); + new_head = Fcons (make_number (id), new_head); + } } arglist[0] = Fnreverse (new_head); arglist[1] = old_list; -- 2.39.5