(member-ignore-case): New function.

diff --git a/lisp/subr.el b/lisp/subr.el
index ee6eadaa59fc0fe216033649b2d862306cd3d98e..ddcc36079ed6e6baf0345b81a38714e601a199a0 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -174,6 +174,18 @@ Unibyte strings are converted to multibyte for comparison."
          (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))
+
 \f
 ;;;; Keymap support.