From: ueno <ueno>
Date: Sun, 10 Sep 2000 15:34:23 +0000 (+0000)
Subject: (string-list-remove-ignore-case): Remove car of the element.
X-Git-Tag: liece-1_4_4-1~27
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=831bb470fa0767af2213fce019b6aeb9d4976459;p=elisp%2Fliece.git

(string-list-remove-ignore-case): Remove car of the element.
(string-list-delete-ignore-case): Ditto.
(string-list-remove): Ditto.
(string-list-delete): Ditto.
---

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  <ueno@unixuser.org>
+
+	* 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  <ueno@unixuser.org>
 
 	* 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)