# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 954790196 0
# Node ID 9958b6d95bd650cdc681d635af1e1aab7dce1ece
# Parent  3fe2e55e31da41a9207e71e27702c042afe04e65
(member-ignore-case): New function.

diff -r 3fe2e55e31da -r 9958b6d95bd6 lisp/subr.el
--- a/lisp/subr.el	Mon Apr 03 19:28:16 2000 +0000
+++ b/lisp/subr.el	Mon Apr 03 19:29:56 2000 +0000
@@ -174,6 +174,18 @@
 	  (setq element (car alist)))
       (setq alist (cdr alist)))
     element))
+
+(defun member-ignore-case (elt list)
+  "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))
+
 
 ;;;; Keymap support.