diff options
| author | Kim F. Storm <storm@cua.dk> | 2007-02-19 22:53:31 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2007-02-19 22:53:31 +0000 |
| commit | 1954495fad913d799d7d66cb7fbcaa050cfb5cac (patch) | |
| tree | b1530bc5ed213f11411f3e7c8ea1f8b70ed749b9 /src | |
| parent | 669b454d39ffbad0925a746c56c8fbb71105cfe9 (diff) | |
| download | emacs-1954495fad913d799d7d66cb7fbcaa050cfb5cac.tar.gz | |
(Fassoc_string): Allow symbols as keys.
Diffstat (limited to 'src')
| -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. */) 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, |