Mercurial > emacs
changeset 49498:324254ee7473
(ibuffer-yank-filter-group): Move check for empty
filter group kill-ring out of `interactive' declaration.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Tue, 28 Jan 2003 08:43:41 +0000 |
| parents | 54411340abe6 |
| children | f4f82e780bcb |
| files | lisp/ibuf-ext.el |
| diffstat | 1 files changed, 4 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ibuf-ext.el Tue Jan 28 00:41:35 2003 +0000 +++ b/lisp/ibuf-ext.el Tue Jan 28 08:43:41 2003 +0000 @@ -688,11 +688,10 @@ ;;;###autoload (defun ibuffer-yank-filter-group (name) "Yank the last killed filter group before group named NAME." - (interactive (list (progn - (unless ibuffer-filter-group-kill-ring - (error "ibuffer-filter-group-kill-ring is empty")) - (ibuffer-read-filter-group-name - "Yank filter group before group: ")))) + (interactive (list (ibuffer-read-filter-group-name + "Yank filter group before group: "))) + (unless ibuffer-filter-group-kill-ring + (error "The Ibuffer filter group kill-ring is empty")) (save-excursion (ibuffer-forward-line 0) (ibuffer-insert-filter-group-before (pop ibuffer-filter-group-kill-ring)