Mercurial > emacs

changeset 57655:ba7d42763f73

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ibuffer-kill-line): Set arg `interactive-p' in interactive spec rather than use function `interactive-p'.
author John Paul Wallington <jpw@pobox.com>
date Sat, 23 Oct 2004 19:54:08 +0000
parents 000df8ff0cc6
children 0a7db62fb4d8
files lisp/ibuf-ext.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)