mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-07 06:41:00 -07:00
Code Issues Projects Releases Wiki Activity

; Fix comments and doc strings in some C files

Browse source 
* src/charset.c (Fmap_charset_chars, Fdefine_charset_internal)
(Ffind_charset_region, Ffind_charset_string, Fchar_charset):
* src/chartab.c (UNIPROP_COMPRESSED_FORM_P): Fix commentary and doc
strings.
This commit is contained in:
Eli Zaretskii 2026-03-26 19:40:58 +02:00
parent 887a7ec32d
commit 3d8f68db3b
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/charset.c
View file

@ -798,7 +798,7 @@ Optional 4th and 5th arguments FROM-CODE and TO-CODE specify the
range of code points (in CHARSET) of target characters on which to
map the FUNCTION. Note that these are not character codes, but code
points of CHARSET; for the difference see `decode-char' and
`list-charset-chars'. If FROM-CODE is nil or imitted, it stands for
`list-charset-chars'. If FROM-CODE is nil or omitted, it stands for
the first code point of CHARSET; if TO-CODE is nil or omitted, it
stands for the last code point of CHARSET.
@ -839,7 +839,7 @@ TO-CODE, which are CHARSET code points. */)
/* Define a charset according to the arguments. The Nth argument is
the Nth attribute of the charset (the last attribute `charset-id'
is not included). See the docstring of `define-charset' for the
detail. */
details. */
DEFUN ("define-charset-internal", Fdefine_charset_internal,
Sdefine_charset_internal, charset_arg_max, MANY, 0,
@ -1529,7 +1529,7 @@ BEG and END are buffer positions.
Optional arg TABLE if non-nil is a translation table to look up.
If the current buffer is unibyte, the returned list may contain
only `ascii', `eight-bit-control', and `eight-bit-graphic'. */)
only `ascii' and `eight-bit'. */)
(Lisp_Object beg, Lisp_Object end, Lisp_Object table)
{
Lisp_Object charsets;
@ -1580,7 +1580,7 @@ DEFUN ("find-charset-string", Ffind_charset_string, Sfind_charset_string,
Optional arg TABLE if non-nil is a translation table to look up.
If STR is unibyte, the returned list may contain
only `ascii', `eight-bit-control', and `eight-bit-graphic'. */)
only `ascii' amd `eight-bit'. */)
(Lisp_Object str, Lisp_Object table)
{
CHECK_STRING (str);
@ -2035,7 +2035,7 @@ ASCII characters are an exception: for them, this function always
returns `ascii'.
If optional 2nd arg RESTRICTION is non-nil, it is a list of charsets
from which to find the charset. It may also be a coding system. In
that case, find the charset from what supported by that coding system. */)
that case, find the charset in those supported by that coding system. */)
(Lisp_Object ch, Lisp_Object restriction)
{
struct charset *charset;

2
src/chartab.c
View file

@ -78,7 +78,7 @@ sub_char_table_ref_and_range (Lisp_Object, int, int *, int *,
/* Nonzero iff OBJ is a string representing uniprop values of 128
succeeding characters (the bottom level of a char-table) by a
compressed format. We are sure that no property value has a string
starting with '\001' nor '\002'. */
starting with '\001' or '\002'. */
#define UNIPROP_COMPRESSED_FORM_P(OBJ) \
(STRINGP (OBJ) && SCHARS (OBJ) > 0 \
&& ((SREF (OBJ, 0) == 1 || (SREF (OBJ, 0) == 2))))