From dd98ee8992c3246861e44447ffcd02886a52878e Mon Sep 17 00:00:00 2001
From: Noam Postavsky <npostavs@gmail.com>
Date: Fri, 24 Jun 2016 20:44:44 -0400
Subject: [PATCH] Fix test-completion with completion-regexp-list

* src/minibuf.c (Ftest_completion): Handle alist COLLECTION with non-nil
completion-regexp-list (Bug #23533).
---
 src/minibuf.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/minibuf.c b/src/minibuf.c
index efce7e26b29..57eea05b0fc 100644
--- 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))
     {
-- 
2.39.2