Mercurial > emacs

comparison src/charset.c @ 88756:c2d4566b3cde

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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--)