From d3fc66fb32818da0871c8cd88cf0d67ecafeedeb Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Wed, 21 Feb 2007 13:55:27 +0000 Subject: [PATCH] (Fassoc_string): Doc fix. Allow symbol for KEY too. --- src/minibuf.c | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/minibuf.c b/src/minibuf.c index cc6859bfb1b..667799bf170 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -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; -- 2.39.2