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

rather than use function `interactive-p'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 32e7b3fb077324381a0197b6ce550b9ede779adb..85fa5318e5d437449b70ea8948be43caaff008d4 100644 (file)
--- 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 1c77e409ae4e4f5fa67869b40553d6faa70db5ec..bed4330d0c267857b277e6e93e1ae80e0563c162 100644 (file)
--- 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)