# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1043743421 0
# Node ID 324254ee747395f70e1f808bf034cd0747f48f09
# Parent  54411340abe625dd7d30cd1a98853f4c93e68369
(ibuffer-yank-filter-group): Move check for empty
filter group kill-ring out of `interactive' declaration.

diff -r 54411340abe6 -r 324254ee7473 lisp/ibuf-ext.el
--- a/lisp/ibuf-ext.el	Tue Jan 28 00:41:35 2003 +0000
+++ b/lisp/ibuf-ext.el	Tue Jan 28 08:43:41 2003 +0000
@@ -688,11 +688,10 @@
 ;;;###autoload
 (defun ibuffer-yank-filter-group (name)
   "Yank the last killed filter group before group named NAME."
-  (interactive (list (progn
-		       (unless ibuffer-filter-group-kill-ring
-			 (error "ibuffer-filter-group-kill-ring is empty"))
-		       (ibuffer-read-filter-group-name
-			"Yank filter group before group: "))))
+  (interactive (list (ibuffer-read-filter-group-name
+			"Yank filter group before group: ")))
+  (unless ibuffer-filter-group-kill-ring
+    (error "The Ibuffer filter group kill-ring is empty"))
   (save-excursion
     (ibuffer-forward-line 0)
     (ibuffer-insert-filter-group-before (pop ibuffer-filter-group-kill-ring)