diff options
| author | John Paul Wallington <jpw@pobox.com> | 2003-01-28 08:50:17 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2003-01-28 08:50:17 +0000 |
| commit | 36df86d83d9b2873f960341f2655e65eff27586c (patch) | |
| tree | 7f3af54a0fe518aafbdad2097aa6f2c06661847a /lisp/ibuf-ext.el | |
| parent | e2c21e666f60debbc4c175bbca7c0c71c3a76bb8 (diff) | |
| download | emacs-36df86d83d9b2873f960341f2655e65eff27586c.tar.gz | |
(ibuffer-yank-filter-group): Move check for empty
filter group kill-ring out of `interactive' declaration.
Diffstat (limited to 'lisp/ibuf-ext.el')
| -rw-r--r-- | lisp/ibuf-ext.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index b1f312d376c..4aa1ec0874f 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -688,11 +688,10 @@ See also `ibuffer-kill-filter-group'." ;;;###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) |