diff options
| author | Lars Brinkhoff <lars@nocrew.org> | 2017-04-03 08:42:18 +0200 |
|---|---|---|
| committer | Lars Brinkhoff <lars@nocrew.org> | 2017-04-10 08:32:23 +0200 |
| commit | c9b173eff5154cfd2d7567cdf400e48c88fd51d2 (patch) | |
| tree | e87ce1ccc69052906f8713f4720d9578be6e5534 /src/lread.c | |
| parent | 0fb52dcc45742af58a081bd6ca27b70f6a6a1899 (diff) | |
| download | emacs-scratch/pvsize.tar.gz | |
Please revew: PVSIZE, pseudovector size.scratch/pvsize
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index 513f63e4315..3b2e123dd39 100644 --- a/src/lread.c +++ b/src/lread.c @@ -3402,7 +3402,7 @@ substitute_object_recurse (Lisp_Object object, Lisp_Object placeholder, Lisp_Obj else if (CHAR_TABLE_P (subtree) || SUB_CHAR_TABLE_P (subtree) || COMPILEDP (subtree) || HASH_TABLE_P (subtree) || RECORDP (subtree)) - length = ASIZE (subtree) & PSEUDOVECTOR_SIZE_MASK; + length = PVSIZE (subtree); else if (VECTORP (subtree)) length = ASIZE (subtree); else |