Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-25 06:17:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(Fassoc_string): Allow symbols as keys.

Browse source
This commit is contained in:
Kim F. Storm 2007-02-19 22:53:31 +00:00
parent 669b454d39
commit 1954495fad
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/minibuf.c
View file

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