# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1098561248 0
# Node ID ba7d42763f73e2dd46354e62cfc3399134b36b32
# Parent  000df8ff0cc6db015ad663b9b4d4d207d2bb5125
(ibuffer-kill-line): Set arg `interactive-p' in interactive spec
rather than use function `interactive-p'.

diff -r 000df8ff0cc6 -r ba7d42763f73 lisp/ibuf-ext.el
--- a/lisp/ibuf-ext.el	Sat Oct 23 19:52:52 2004 +0000
+++ b/lisp/ibuf-ext.el	Sat Oct 23 19:54:08 2004 +0000
@@ -645,16 +645,16 @@
   (ibuffer-update nil t))
 
 ;;;###autoload
-(defun ibuffer-kill-line (&optional arg)
+(defun ibuffer-kill-line (&optional arg interactive-p)
   "Kill the filter group at point.
 See also `ibuffer-kill-filter-group'."
-  (interactive "P")
+  (interactive "P\np")
   (ibuffer-aif (save-excursion
 		 (ibuffer-forward-line 0)
 		 (get-text-property (point) 'ibuffer-filter-group-name))
       (progn
 	(ibuffer-kill-filter-group it))
-      (funcall (if (interactive-p) #'call-interactively #'funcall)
+      (funcall (if interactive-p #'call-interactively #'funcall)
 	       #'kill-line arg)))
 
 (defun ibuffer-insert-filter-group-before (newgroup group)