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/lisp.h | |
| parent | dd42ca427cf8a890678f574de43685ae70416491 (diff) | |
| download | emacs-3ccd0ff1064a2836c379b13c2d5f4b11c5da1f88.tar.gz | |
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/lisp.h')
| -rw-r--r-- | src/lisp.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/lisp.h b/src/lisp.h index 5e7d41bc5d5..678e261c1da 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -1401,6 +1401,12 @@ ASIZE (Lisp_Object array) return size; } +INLINE ptrdiff_t +PVSIZE (Lisp_Object pv) +{ + return ASIZE (pv) & PSEUDOVECTOR_SIZE_MASK; +} + INLINE bool VECTORP (Lisp_Object x) { |