Commit d3fc66fb authored by Kim F. Storm's avatar Kim F. Storm

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

parent dfb1e36c
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment