Mercurial > emacs
changeset 76042:c76aa2fa987a
(Fassoc_string): Doc fix. Allow symbol for KEY too.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Wed, 21 Feb 2007 13:55:27 +0000 |
| parents | 457dc583fa98 |
| children | af8094fdc276 |
| files | src/minibuf.c |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/minibuf.c Wed Feb 21 13:55:10 2007 +0000 +++ b/src/minibuf.c Wed Feb 21 13:55:27 2007 +0000 @@ -2073,9 +2073,10 @@ /* Like assoc but assumes KEY is a string, and ignores case if appropriate. */ DEFUN ("assoc-string", Fassoc_string, Sassoc_string, 2, 3, 0, - doc: /* Like `assoc' but specifically for strings. -Unibyte strings are converted to multibyte for comparison. -And case is ignored if CASE-FOLD is non-nil. + doc: /* Like `assoc' but specifically for strings (and symbols). +Symbols are converted to strings, and unibyte strings are converted to +multibyte for comparison. +Case is ignored if optional arg CASE-FOLD is non-nil. As opposed to `assoc', it will also match an entry consisting of a single string rather than a cons cell whose car is a string. */) (key, list, case_fold) @@ -2084,6 +2085,9 @@ { register Lisp_Object tail; + if (SYMBOLP (key)) + key = Fsymbol_name (key); + for (tail = list; !NILP (tail); tail = Fcdr (tail)) { register Lisp_Object elt, tem, thiscar;