Fix test-completion with completion-regexp-list

[gnu-emacs] / src / minibuf.c

diff --git a/src/minibuf.c b/src/minibuf.c
index efce7e26b29519ab2c1edc9da3ee137c9f746e9b..57eea05b0fc897a6b17eb6d394da570104d97109 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -1686,6 +1686,8 @@ the values STRING, PREDICATE and `lambda'.  */)
       tem = Fassoc_string (string, collection, completion_ignore_case ? Qt : Qnil);
       if (NILP (tem))
        return Qnil;
+      else if (CONSP (tem))
+        tem = XCAR (tem);
     }
   else if (VECTORP (collection))
     {