diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-08-26 16:33:21 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-08-26 16:33:21 -0400 |
| commit | 068f9124b4cb785f1743f2b50884f819d9d34f47 (patch) | |
| tree | 911c7c9bba7d90e59831caf4dad64a8db66b7e33 /src/lread.c | |
| parent | 1fc8eb33f5534cd3828d7cd15e95771a514dc589 (diff) | |
| download | emacs-068f9124b4cb785f1743f2b50884f819d9d34f47.tar.gz | |
* src/lread.c (substitute_object_recurse): Handle hash-tables as well.
Fixes: debbugs:15190
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 57c7df74127..1f90970e93c 100644 --- a/src/lread.c +++ b/src/lread.c @@ -3229,7 +3229,7 @@ substitute_object_recurse (Lisp_Object object, Lisp_Object placeholder, Lisp_Obj if (BOOL_VECTOR_P (subtree)) return subtree; /* No sub-objects anyway. */ else if (CHAR_TABLE_P (subtree) || SUB_CHAR_TABLE_P (subtree) - || COMPILEDP (subtree)) + || COMPILEDP (subtree) || HASH_TABLE_P (subtree)) length = ASIZE (subtree) & PSEUDOVECTOR_SIZE_MASK; else if (VECTORP (subtree)) length = ASIZE (subtree); |