diff options
| author | John Paul Wallington <jpw@pobox.com> | 2004-10-23 19:58:27 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2004-10-23 19:58:27 +0000 |
| commit | 818f3c458ee157d3e2bfbec6a9e261cdbc6dafe7 (patch) | |
| tree | fd5e9598b81dd0227281d47c620e069684e44165 | |
| parent | fe78af29dea983ce8828bc5d2ef63dd28becdde3 (diff) | |
| download | emacs-818f3c458ee157d3e2bfbec6a9e261cdbc6dafe7.tar.gz | |
(ibuffer-kill-line): Set arg `interactive-p' in interactive spec
rather than use function `interactive-p'.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/ibuf-ext.el | 6 |
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) |