diff options
| author | Lars Brinkhoff <lars@nocrew.org> | 2017-04-03 08:42:18 +0200 |
|---|---|---|
| committer | Lars Brinkhoff <lars@nocrew.org> | 2017-04-10 20:35:13 +0200 |
| commit | 3ccd0ff1064a2836c379b13c2d5f4b11c5da1f88 (patch) | |
| tree | 29393d7ce726f222d0f82ddfbb1363b0364168e7 /src/chartab.c | |
| parent | dd42ca427cf8a890678f574de43685ae70416491 (diff) | |
| download | emacs-3ccd0ff1064a2836c379b13c2d5f4b11c5da1f88.tar.gz emacs-3ccd0ff1064a2836c379b13c2d5f4b11c5da1f88.tar.bz2 emacs-3ccd0ff1064a2836c379b13c2d5f4b11c5da1f88.zip | |
Add PVSIZE function to return the size of a pseudovector.
* src/lisp.h (PVSIZE): New function.
* src/chartab.c (copy_char_table):
* src/data.c (Ftype_of, Finteractive_form, Faref, Faset):
* src/doc.c (Fdocumentation, store_function_docstring):
* src/eval.c (Fcommandp, funcall_lambda, lambda_arity, Ffetch_bytecode):
* src/fns.c (Flength, Fcopy_sequence):
* src/font.h (FONT_SPEC_P, FONT_ENTITY_P, FONT_OBJECT_P):
* src/lread.c (substitute_object_recurse):
* src/src/print.c (print_object):
Use it.
Diffstat (limited to 'src/chartab.c')
| -rw-r--r-- | src/chartab.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/chartab.c b/src/chartab.c index fa5a8e41164..8392c0c07dc 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -185,7 +185,7 @@ Lisp_Object copy_char_table (Lisp_Object table) { Lisp_Object copy; - int size = XCHAR_TABLE (table)->header.size & PSEUDOVECTOR_SIZE_MASK; + int size = PVSIZE (table); int i; copy = Fmake_vector (make_number (size), Qnil); |