# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 975472550 0
# Node ID 9aa3fd6779f7ff94c0962503ceec904167f4e711
# Parent  fd338013d333168558e29fe09c812fc336c829ed
(member-ignore-case): Return the tail of the list who's car matches,
like `member', not the matching element itself.

diff -r fd338013d333 -r 9aa3fd6779f7 lisp/subr.el
--- a/lisp/subr.el	Wed Nov 29 00:38:36 2000 +0000
+++ b/lisp/subr.el	Wed Nov 29 04:35:50 2000 +0000
@@ -195,12 +195,9 @@
   "Like `member', but ignores differences in case and text representation.
 ELT must be a string.  Upper-case and lower-case letters are treated as equal.
 Unibyte strings are converted to multibyte for comparison."
-  (let (element)
-    (while (and list (not element))
-      (if (eq t (compare-strings elt 0 nil (car list) 0 nil t))
-	  (setq element (car list)))
-      (setq list (cdr list)))
-      element))
+  (while (and list (not (eq t (compare-strings elt 0 nil (car list) 0 nil t))))
+    (setq list (cdr list)))
+  list)
 
 
 ;;;; Keymap support.