Mercurial > emacs
comparison src/charset.c @ 88756:c2d4566b3cde
(Ffind_charset_string): Setup the vector `charsets' correctly.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 12 Jun 2002 00:57:16 +0000 |
parents | f247f70ed2c3 |
children | 5756cf8c8828 |
comparison
equal
deleted
inserted
replaced
88755:97a127f9efeb | 88756:c2d4566b3cde |
---|---|
1364 Lisp_Object val; | 1364 Lisp_Object val; |
1365 | 1365 |
1366 CHECK_STRING (str); | 1366 CHECK_STRING (str); |
1367 | 1367 |
1368 charsets = Fmake_vector (make_number (charset_table_used), Qnil); | 1368 charsets = Fmake_vector (make_number (charset_table_used), Qnil); |
1369 for (i = 0; i < charset_table_used; i++) | |
1370 ASET (charsets, i, Fcons (make_number (i), Qnil)); | |
1369 find_charsets_in_text (XSTRING (str)->data, XSTRING (str)->size, | 1371 find_charsets_in_text (XSTRING (str)->data, XSTRING (str)->size, |
1370 STRING_BYTES (XSTRING (str)), charsets, table); | 1372 STRING_BYTES (XSTRING (str)), charsets, table); |
1371 | 1373 |
1372 val = Qnil; | 1374 val = Qnil; |
1373 for (i = charset_table_used - 1; i >= 0; i--) | 1375 for (i = charset_table_used - 1; i >= 0; i--) |