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;