Mercurial > emacs
comparison lisp/ibuf-ext.el @ 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 | 798119a6859c |
| children | 37645a051842 |
comparison
equal
deleted
inserted
replaced
| 49497:54411340abe6 | 49498:324254ee7473 |
|---|---|
| 686 (error "No filter group at point")))) | 686 (error "No filter group at point")))) |
| 687 | 687 |
| 688 ;;;###autoload | 688 ;;;###autoload |
| 689 (defun ibuffer-yank-filter-group (name) | 689 (defun ibuffer-yank-filter-group (name) |
| 690 "Yank the last killed filter group before group named NAME." | 690 "Yank the last killed filter group before group named NAME." |
| 691 (interactive (list (progn | 691 (interactive (list (ibuffer-read-filter-group-name |
| 692 (unless ibuffer-filter-group-kill-ring | 692 "Yank filter group before group: "))) |
| 693 (error "ibuffer-filter-group-kill-ring is empty")) | 693 (unless ibuffer-filter-group-kill-ring |
| 694 (ibuffer-read-filter-group-name | 694 (error "The Ibuffer filter group kill-ring is empty")) |
| 695 "Yank filter group before group: ")))) | |
| 696 (save-excursion | 695 (save-excursion |
| 697 (ibuffer-forward-line 0) | 696 (ibuffer-forward-line 0) |
| 698 (ibuffer-insert-filter-group-before (pop ibuffer-filter-group-kill-ring) | 697 (ibuffer-insert-filter-group-before (pop ibuffer-filter-group-kill-ring) |
| 699 name)) | 698 name)) |
| 700 (ibuffer-update nil t)) | 699 (ibuffer-update nil t)) |