mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 05:52:32 -08:00
Code Issues Projects Releases Wiki Activity

(Fmake_char_table): Doc fixed. If PURPOSE doesn't

Browse source 
have property char-table-extra-slots, make no extra slot.
This commit is contained in:
Kenichi Handa 2002-07-26 04:05:29 +00:00
parent 093ff45304
commit eaa3b0e07a
1 changed files with 14 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/chartab.c
View file

@ -56,32 +56,31 @@ const int chartab_bits[4] =
DEFUN ("make-char-table", Fmake_char_table, Smake_char_table, 1, 2, 0,
doc: /* Return a newly created char-table.
doc: /* Return a newly created char-table, with purpose PURPOSE.
Each element is initialized to INIT, which defaults to nil.
Optional second argument PURPOSE, if non-nil, should be a symbol
which has a `char-table-extra-slots' property.
The property's value should be an integer between 0 and 10
that specify how many extra slots the char-table has.
By default, the char-table has no extra slot. */)
PURPOSE should be a symbol. If it has a `char-table-extra-slots'
property, the property's value should be an integer between 0 and 10
that specifies how many extra slots the char-table has. Otherwise,
the char-table has no extra slot. */)
(purpose, init)
register Lisp_Object purpose, init;
{
Lisp_Object vector;
Lisp_Object n;
int n_extras = 0;
int n_extras;
int size;
CHECK_SYMBOL (purpose);
if (! NILP (purpose))
n = Fget (purpose, Qchar_table_extra_slots);
if (NILP (n))
n_extras = 0;
else
{
n = Fget (purpose, Qchar_table_extra_slots);
if (INTEGERP (n))
{
if (XINT (n) < 0 || XINT (n) > 10)
args_out_of_range (n, Qnil);
n_extras = XINT (n);
}
CHECK_NATNUM (n);
n_extras = XINT (n);
if (n_extras > 10)
args_out_of_range (n, Qnil);
}
size = VECSIZE (struct Lisp_Char_Table) - 1 + n_extras;