From 36df86d83d9b2873f960341f2655e65eff27586c Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Tue, 28 Jan 2003 08:50:17 +0000 Subject: [PATCH] (ibuffer-yank-filter-group): Move check for empty filter group kill-ring out of `interactive' declaration. --- lisp/ChangeLog | 5 +++++ lisp/ibuf-ext.el | 9 ++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 76befbb5904..5e0e9ee96d2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-01-28 John Paul Wallington + + * ibuf-ext.el (ibuffer-yank-filter-group): Move check for empty + `ibuffer-filter-group-kill-ring' out of `interactive' declaration. + 2003-01-28 Martin Stjernholm * progmodes/cc-vars.el, progmodes/cc-mode.el 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) -- 2.39.5