(ibuffer-kill-line): Set arg `interactive-p' in interactive spec

rather than use function `interactive-p'.

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 32e7b3fb077..85fa5318e5d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -23,8 +23,13 @@
 
 2004-10-23  John Paul Wallington  <jpw@gnu.org>
 
+        * ibuffer.el (ibuffer-find-file): Remove `interactive-p' call;
+        `wildcards' set to t in interactive spec.
+
         * ibuf-ext.el (ibuffer-jump-to-buffer): Read buffer name in
         interactive spec rather than use `interactive-p'.
+        (ibuffer-kill-line): Set arg `interactive-p' in interactive spec
+        rather than use function `interactive-p'.
 
 2004-10-22  Kenichi Handa  <handa@m17n.org>
 
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index 1c77e409ae4..bed4330d0c2 100644
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -645,16 +645,16 @@ The group will be added to `ibuffer-filter-group-kill-ring'."
   (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)