From: John Paul Wallington <jpw@pobox.com>
Date: Sat, 23 Oct 2004 19:58:27 +0000 (+0000)
Subject: (ibuffer-kill-line): Set arg `interactive-p' in interactive spec
X-Git-Tag: ttn-vms-21-2-B4~4435
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=818f3c458ee157d3e2bfbec6a9e261cdbc6dafe7;p=emacs.git

(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 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)