From cbbc32051374d25a92a0a33014d51118ff6d10fc Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 3 Apr 2000 19:29:56 +0000 Subject: [PATCH] (member-ignore-case): New function. --- lisp/subr.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/lisp/subr.el b/lisp/subr.el index ee6eadaa59..ddcc36079e 100644 --- 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)) + ;;;; Keymap support. -- 2.20.1