# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1020121949 0
# Node ID f365c85cce403cfe5fe0dc143309e14606179588
# Parent  27ae12d5d8e5d4a9323a6674550839437a2a2eee
(ibuffer-kill-filter-group): Call `delete' function.
(ibuffer-kill-line): Copy the filter group data structure when killing.
(ibuffer-yank): Handle case where we're yanking on the default group
correctly.
(ibuffer-delete-saved-filter-groups): Doc fix.

diff -r 27ae12d5d8e5 -r f365c85cce40 lisp/ibuf-ext.el
--- a/lisp/ibuf-ext.el	Mon Apr 29 23:03:27 2002 +0000
+++ b/lisp/ibuf-ext.el	Mon Apr 29 23:12:29 2002 +0000
@@ -610,7 +610,7 @@
 	(setq ibuffer-filter-groups (ibuffer-delete-alist
 				     name ibuffer-filter-groups))
 	(setq ibuffer-hidden-filter-groups
-	      delete name ibuffer-hidden-filter-groups))
+	      (delete name ibuffer-hidden-filter-groups)))
     (error "No filter group with name \"%s\"" name))
   (ibuffer-update nil t))
 
@@ -623,7 +623,8 @@
       (progn
 	(when (equal it "Default")
 	  (error "Can't kill default filtering group"))
-	(push (assoc it ibuffer-filter-groups) ibuffer-filter-group-kill-ring)
+	(push (copy-tree (assoc it ibuffer-filter-groups))
+	      ibuffer-filter-group-kill-ring)
 	(ibuffer-kill-filter-group it))
       (funcall (if (interactive-p) #'call-interactively #'funcall)
 	       #'kill-line arg)))
@@ -641,10 +642,10 @@
 		    (get-text-property (point) 'ibuffer-filter-group)
 		    (last all-groups)))
 	   (pos (or (position cur (mapcar #'car all-groups) :test #'equal)
-		    (1- (length all-groups)))))
+		    (length all-groups))))
       (cond ((= pos 0)
 	     (push last-killed ibuffer-filter-groups))
-	    ((= pos (1- (length all-groups)))
+	    ((= pos (length all-groups))
 	     (setq ibuffer-filter-groups
 		   (nconc ibuffer-filter-groups (list last-killed))))
 	    (t
@@ -677,8 +678,8 @@
   (interactive
    (list
     (if (null ibuffer-saved-filter-groups)
-	(error "No saved filters")
-      (completing-read "Delete saved filters: "
+	(error "No saved filter groups")
+      (completing-read "Delete saved filter group: "
 		       ibuffer-saved-filter-groups nil t))))
   (setq ibuffer-saved-filter-groups
 	(ibuffer-delete-alist name ibuffer-saved-filter-groups))