From 373bf2b76c9ee3ddefa55aae26134ddadf9cf544 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Tue, 8 Jun 2010 21:42:10 +0200 Subject: [PATCH] * minibuf.c (Fall_completions): Add more checks. --- src/minibuf.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/minibuf.c b/src/minibuf.c index 54b0b1510ce..539a953f7ee 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -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) -- 2.11.4.GIT