Commit 1954495f authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(Fassoc_string): Allow symbols as keys.

parent 669b454d
......@@ -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,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment