From 831bb470fa0767af2213fce019b6aeb9d4976459 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 10 Sep 2000 15:34:23 +0000 Subject: [PATCH] (string-list-remove-ignore-case): Remove car of the element. (string-list-delete-ignore-case): Ditto. (string-list-remove): Ditto. (string-list-delete): Ditto. --- lisp/ChangeLog | 7 +++++++ lisp/liece-inlines.el | 8 ++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a464c05..f44ed84 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2000-09-10 Daiki Ueno + + * liece-inlines.el (string-list-remove-ignore-case): Remove car of the element. + (string-list-delete-ignore-case): Ditto. + (string-list-remove): Ditto. + (string-list-delete): Ditto. + 2000-09-06 Daiki Ueno * liece-clfns.el (remq): New compiler macro. diff --git a/lisp/liece-inlines.el b/lisp/liece-inlines.el index 60b0e37..c73a7f4 100644 --- a/lisp/liece-inlines.el +++ b/lisp/liece-inlines.el @@ -63,25 +63,25 @@ (defsubst string-list-remove-ignore-case (thing list) (let ((element (string-list-member-ignore-case thing list))) (if element - (remq element list) + (remq (car element) list) list))) (defsubst string-list-delete-ignore-case (thing list) (let ((element (string-list-member-ignore-case thing list))) (if element - (delq element list) + (delq (car element) list) list))) (defsubst string-list-remove (thing list) (let ((element (member thing list))) (if element - (remq element list) + (remq (car element) list) list))) (defsubst string-list-delete (thing list) (let ((element (member thing list))) (if element - (delq element list) + (delq (car element) list) list))) (defsubst string-list-modify-ignore-case (modifiers list) -- 1.7.10.4