From: Kim F. Storm <storm@cua.dk>
Date: Mon, 19 Feb 2007 22:53:31 +0000 (+0000)
Subject: (Fassoc_string): Allow symbols as keys.
X-Git-Tag: emacs-pretest-22.0.94~63
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1954495fad913d799d7d66cb7fbcaa050cfb5cac;p=emacs.git

(Fassoc_string): Allow symbols as keys.
---

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,