From 242c13e8b296e450530c299a3aff06849bd65697 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 29 Nov 2000 04:36:30 +0000 Subject: [PATCH] (member-ignore-case): Return the tail of the list who's car matches, like `member', not the matching element itself. --- lisp/ChangeLog | 5 +++++ lisp/subr.el | 9 +++------ 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5600d215ee3..92660226a26 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-11-29 Miles Bader + + * subr.el (member-ignore-case): Return the tail of the list who's + car matches, like `member', not the matching element itself. + 2000-11-29 Kenichi Handa * xml.el (xml-parse-tag): Fix finding opening tag. A tag name diff --git a/lisp/subr.el b/lisp/subr.el index 99d06e43844..3adad4268aa 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -195,12 +195,9 @@ Unibyte strings are converted to multibyte for comparison." "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. -- 2.39.5