From: Kenichi Handa <handa@m17n.org>
Date: Tue, 6 Jun 2006 03:51:12 +0000 (+0000)
Subject: (assoc_no_quit): New function.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~942
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86840809690d05eac124c0ebdbb8f85eff9f711d;p=emacs.git

(assoc_no_quit): New function.
---

diff --git a/src/fns.c b/src/fns.c
index 2d4c49fbaa2..545b4d7b0ea 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1524,6 +1524,22 @@ The value is actually the first element of LIST whose car equals KEY.  */)
   return result;
 }
 
+/* Like Fassoc but never report an error and do not allow quits.
+   Use only on lists known never to be circular.  */
+
+Lisp_Object
+assoc_no_quit (key, list)
+     Lisp_Object key, list;
+{
+  while (CONSP (list)
+	 && (!CONSP (XCAR (list))
+	     || (!EQ (XCAR (XCAR (list)), key)
+		 && NILP (Fequal (XCAR (XCAR (list)), key)))))
+    list = XCDR (list);
+
+  return CONSP (list) ? XCAR (list) : Qnil;
+}
+
 DEFUN ("rassq", Frassq, Srassq, 2, 2, 0,
        doc: /* Return non-nil if KEY is `eq' to the cdr of an element of LIST.
 The value is actually the first element of LIST whose cdr is KEY.  */)