# HG changeset patch # User Dave Love # Date 1026856705 0 # Node ID 23c58f02c5588e606264ee482425b87232761c38 # Parent b3fe0014215bb0319a3ab990a6b4db52a6425dcb Comments. diff -r b3fe0014215b -r 23c58f02c558 src/charset.c --- a/src/charset.c Tue Jul 16 15:22:12 2002 +0000 +++ b/src/charset.c Tue Jul 16 21:58:25 2002 +0000 @@ -1225,8 +1225,8 @@ true for a unibyte string. For a multibyte string, true if it contains only ASCII characters. - 1: No charsets other than ascii, eight-bit-control, and - latin-1 are found. + 1: No charsets other than ascii, control-1, and latin-1 are + found. 2: Otherwise. */ @@ -1302,7 +1302,7 @@ } } - +/* Fixme: returns nil for unibyte. */ DEFUN ("find-charset-region", Ffind_charset_region, Sfind_charset_region, 2, 3, 0, doc: /* Return a list of charsets in the region between BEG and END. @@ -1356,6 +1356,7 @@ return val; } +/* Fixme: returns nil for unibyte. */ DEFUN ("find-charset-string", Ffind_charset_string, Sfind_charset_string, 1, 2, 0, doc: /* Return a list of charsets in STR. @@ -1471,7 +1472,8 @@ Lisp_Object charset_work; /* Return a code-point of CHAR in CHARSET. If CHAR doesn't belong to - CHARSET, return CHARSET_INVALID_CODE (CHARSET). */ + CHARSET, return CHARSET_INVALID_CODE (CHARSET). If STRICT is true, + use CHARSET's strict_max_char instead of max_char. */ unsigned encode_char (charset, c)