diff options
| -rw-r--r-- | src/minibuf.c | 4 |
1 files changed, 3 insertions, 1 deletions
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. */) | |||
| 2089 | register Lisp_Object elt, tem, thiscar; | 2089 | register Lisp_Object elt, tem, thiscar; |
| 2090 | elt = Fcar (tail); | 2090 | elt = Fcar (tail); |
| 2091 | thiscar = CONSP (elt) ? XCAR (elt) : elt; | 2091 | thiscar = CONSP (elt) ? XCAR (elt) : elt; |
| 2092 | if (!STRINGP (thiscar)) | 2092 | if (SYMBOLP (thiscar)) |
| 2093 | thiscar = Fsymbol_name (thiscar); | ||
| 2094 | else if (!STRINGP (thiscar)) | ||
| 2093 | continue; | 2095 | continue; |
| 2094 | tem = Fcompare_strings (thiscar, make_number (0), Qnil, | 2096 | tem = Fcompare_strings (thiscar, make_number (0), Qnil, |
| 2095 | key, make_number (0), Qnil, | 2097 | key, make_number (0), Qnil, |