masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-09 13:40:50 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

; * src/chartab.c, src/lisp.h: Fix typos in comments.

Browse source
This commit is contained in:
Eli Zaretskii 2020-12-02 18:07:54 +02:00
parent 8e73259093
commit d86cc3ffcb
2 changed files with 20 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/chartab.c
View file

@ -1000,10 +1000,10 @@ map_sub_char_table_for_charset (void (*c_function) (Lisp_Object, Lisp_Object),
"mapping table" or a "deunifier table" of a certain charset. "mapping table" or a "deunifier table" of a certain charset.
If CHARSET is not NULL (this is the case that `map-charset-chars' If CHARSET is not NULL (this is the case that `map-charset-chars'
is called with non-nil FROM-CODE and TO-CODE), it is a charset who is called with non-nil FROM-CODE and TO-CODE), it is a charset that
owns TABLE, and the function is called only on a character in the owns TABLE, and the function is called only for characters in the
range FROM and TO. FROM and TO are not character codes, but code range FROM and TO. FROM and TO are not character codes, but code
points of a character in CHARSET. points of characters in CHARSET (see 'decode-char').
This function is called in these two cases: This function is called in these two cases:

33
src/lisp.h
View file

@ -1927,16 +1927,17 @@ memclear (void *p, ptrdiff_t nbytes)
/* True iff C is an ASCII character. */ /* True iff C is an ASCII character. */
#define ASCII_CHAR_P(c) UNSIGNED_CMP (c, <, 0x80) #define ASCII_CHAR_P(c) UNSIGNED_CMP (c, <, 0x80)
/* A char-table is a kind of vectorlike, with contents are like a /* A char-table is a kind of vectorlike, with contents like a vector,
vector but with a few other slots. For some purposes, it makes but with a few additional slots. For some purposes, it makes sense
sense to handle a char-table with type struct Lisp_Vector. An to handle a char-table as type 'struct Lisp_Vector'. An element of
element of a char table can be any Lisp objects, but if it is a sub a char-table can be any Lisp object, but if it is a sub-char-table,
char-table, we treat it a table that contains information of a we treat it as a table that contains information of a specific
specific range of characters. A sub char-table is like a vector but range of characters. A sub-char-table is like a vector, but with
with two integer fields between the header and Lisp data, which means two integer fields between the header and Lisp data, which means
that it has to be marked with some precautions (see mark_char_table that it has to be marked with some precautions (see mark_char_table
in alloc.c). A sub char-table appears only in an element of a char-table, in alloc.c). A sub-char-table appears only in an element of a
and there's no way to access it directly from Emacs Lisp program. */ char-table, and there's no way to access it directly from a Lisp
program. */
enum CHARTAB_SIZE_BITS enum CHARTAB_SIZE_BITS
{ {
@ -1956,11 +1957,11 @@ struct Lisp_Char_Table
contents, and extras slots. */ contents, and extras slots. */
union vectorlike_header header; union vectorlike_header header;
/* This holds a default value, /* This holds the default value, which is used whenever the value
which is used whenever the value for a specific character is nil. */ for a specific character is nil. */
Lisp_Object defalt; Lisp_Object defalt;
/* This points to another char table, which we inherit from when the /* This points to another char table, from which we inherit when the
value for a specific character is nil. The `defalt' slot takes value for a specific character is nil. The `defalt' slot takes
precedence over this. */ precedence over this. */
Lisp_Object parent; Lisp_Object parent;
@ -1969,8 +1970,8 @@ struct Lisp_Char_Table
meant for. */ meant for. */
Lisp_Object purpose; Lisp_Object purpose;
/* The bottom sub char-table for characters of the range 0..127. It /* The bottom sub char-table for characters in the range 0..127. It
is nil if none of ASCII character has a specific value. */ is nil if no ASCII character has a specific value. */
Lisp_Object ascii; Lisp_Object ascii;
Lisp_Object contents[(1 << CHARTAB_SIZE_BITS_0)]; Lisp_Object contents[(1 << CHARTAB_SIZE_BITS_0)];
@ -2045,7 +2046,7 @@ CHAR_TABLE_REF_ASCII (Lisp_Object ct, ptrdiff_t idx)
} }
/* Almost equivalent to Faref (CT, IDX) with optimization for ASCII /* Almost equivalent to Faref (CT, IDX) with optimization for ASCII
characters. Do not check validity of CT. */ characters. Does not check validity of CT. */
INLINE Lisp_Object INLINE Lisp_Object
CHAR_TABLE_REF (Lisp_Object ct, int idx) CHAR_TABLE_REF (Lisp_Object ct, int idx)
{ {
@ -2055,7 +2056,7 @@ CHAR_TABLE_REF (Lisp_Object ct, int idx)
} }
/* Equivalent to Faset (CT, IDX, VAL) with optimization for ASCII and /* Equivalent to Faset (CT, IDX, VAL) with optimization for ASCII and
8-bit European characters. Do not check validity of CT. */ 8-bit European characters. Does not check validity of CT. */
INLINE void INLINE void
CHAR_TABLE_SET (Lisp_Object ct, int idx, Lisp_Object val) CHAR_TABLE_SET (Lisp_Object ct, int idx, Lisp_Object val)
{ {