diff options
Diffstat (limited to 'src/minibuf.c')
| -rw-r--r-- | src/minibuf.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/minibuf.c b/src/minibuf.c index 2397ea4b085..85a0169e10a 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -1287,6 +1287,7 @@ is used to further constrain the set of candidates. */) tail = alist; if (type == 2) { + alist = check_obarray (alist); obsize = XVECTOR (alist)->size; bucket = XVECTOR (alist)->contents[index]; } @@ -1310,6 +1311,8 @@ is used to further constrain the set of candidates. */) { if (!EQ (bucket, zero)) { + if (!SYMBOLP (bucket)) + error ("Bad data in guts of obarray"); elt = bucket; eltstring = elt; if (XSYMBOL (bucket)->next) |