From 1954495fad913d799d7d66cb7fbcaa050cfb5cac Mon Sep 17 00:00:00 2001
From: "Kim F. Storm" <storm@cua.dk>
Date: Mon, 19 Feb 2007 22:53:31 +0000
Subject: [PATCH] (Fassoc_string): Allow symbols as keys.

---
 src/minibuf.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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,
-- 
2.39.2