# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1171925611 0
# Node ID c0a1f896395c06885a3ee9201ef04983a8c80566
# Parent  5e40439c67a2456cbddbecf01146b202dfb84cb9
(Fassoc_string): Allow symbols as keys.

diff -r 5e40439c67a2 -r c0a1f896395c src/minibuf.c
--- a/src/minibuf.c	Mon Feb 19 22:53:21 2007 +0000
+++ b/src/minibuf.c	Mon Feb 19 22:53:31 2007 +0000
@@ -2089,7 +2089,9 @@
       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,