Mercurial > emacs
changeset 89645:17d1d4813c04
(find_charsets_in_text): Delete unused locale variable.
(Fset_charset_priority): Update Vemacs_mule_charset_list too.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 22 Nov 2003 11:40:57 +0000 |
| parents | fc9cda144ffc |
| children | b41f8c0c1a8b |
| files | src/charset.c |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/charset.c Sat Nov 22 11:39:53 2003 +0000 +++ b/src/charset.c Sat Nov 22 11:40:57 2003 +0000 @@ -1375,7 +1375,6 @@ int multibyte; { const unsigned char *pend = ptr + nbytes; - int ncharsets = ASIZE (charsets); if (nchars == nbytes) { @@ -1989,6 +1988,7 @@ 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,13 +2007,16 @@ Vcharset_ordered_list = Fnconc (2, arglist); charset_ordered_list_tick++; - for (old_list = Vcharset_ordered_list, new_head = Qnil; + 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))) - new_head = Fcons (XCAR (old_list), new_head); + 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 (new_head); + Viso_2022_charset_list = Fnreverse (list_2022); + Vemacs_mule_charset_list = Fnreverse (list_emacs_mule); return Qnil; }