(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 (file)
--- 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 (file)
--- 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)