procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
rather than use function `interactive-p'.
This commit is contained in:
John Paul Wallington 2004-10-23 19:58:27 +00:00
parent fe78af29de
commit 818f3c458e
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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>

6
lisp/ibuf-ext.el
View file

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