Commit 373bf2b7 authored by Andreas Schwab's avatar Andreas Schwab

* minibuf.c (Fall_completions): Add more checks.

parent 657d4c0b
......@@ -1589,9 +1589,8 @@ with a space are ignored unless STRING itself starts with a space. */)
tail = collection;
if (type == 2)
{
collection = check_obarray (collection);
obsize = XVECTOR (collection)->size;
if (obsize == 0)
return Qnil;
bucket = XVECTOR (collection)->contents[index];
}
......@@ -1612,8 +1611,10 @@ with a space are ignored unless STRING itself starts with a space. */)
}
else if (type == 2)
{
if (SYMBOLP (bucket))
if (!EQ (bucket, zero))
{
if (!SYMBOLP (bucket))
error ("Bad data in guts of obarray");
elt = bucket;
eltstring = elt;
if (XSYMBOL (bucket)->next)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment