Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
eaa3b0e0
Commit
eaa3b0e0
authored
Jul 26, 2002
by
Kenichi Handa
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fmake_char_table): Doc fixed. If PURPOSE doesn't
have property char-table-extra-slots, make no extra slot.
parent
093ff453
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
15 deletions
+14
-15
src/chartab.c
src/chartab.c
+14
-15
No files found.
src/chartab.c
View file @
eaa3b0e0
...
...
@@ -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
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment