(Fassoc_string): Allow symbols as keys.

1 files changed, 3 insertions, 1 deletions

diff --git a/src/minibuf.c b/src/minibuf.c
index 19835f1d213..cc6859bfb1b 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -2089,7 +2089,9 @@ string rather than a cons cell whose car is a string.  */)
       register Lisp_Object elt, tem, thiscar;
       elt = Fcar (tail);
       thiscar = CONSP (elt) ? XCAR (elt) : elt;
-      if (!STRINGP (thiscar))
+      if (SYMBOLP (thiscar))
+        thiscar = Fsymbol_name (thiscar);
+      else if (!STRINGP (thiscar))
         continue;
       tem = Fcompare_strings (thiscar, make_number (0), Qnil,
                               key, make_number (0), Qnil,