(Fassoc_string): Doc fix. Allow symbol for KEY too.

This commit is contained in:
Kim F. Storm 2007-02-21 13:55:27 +00:00
parent dfb1e36c31
commit d3fc66fb32

View file

@ -2073,9 +2073,10 @@ do_completion ()
/* 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 @@ string rather than a cons cell whose car is a string. */)
{
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;