Mercurial > emacs

changeset 76027:c0a1f896395c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fassoc_string): Allow symbols as keys.
author Kim F. Storm <storm@cua.dk>
date Mon, 19 Feb 2007 22:53:31 +0000
parents 5e40439c67a2
children 74b530027eb3
files src/minibuf.c
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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,