[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el
From: |
John Paul Wallington |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el |
Date: |
Tue, 28 Jan 2003 03:43:41 -0500 |
Index: emacs/lisp/ibuf-ext.el
diff -c emacs/lisp/ibuf-ext.el:1.29 emacs/lisp/ibuf-ext.el:1.30
*** emacs/lisp/ibuf-ext.el:1.29 Thu Jan 23 23:53:31 2003
--- emacs/lisp/ibuf-ext.el Tue Jan 28 03:43:41 2003
***************
*** 688,698 ****
;;;###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: "))))
(save-excursion
(ibuffer-forward-line 0)
(ibuffer-insert-filter-group-before (pop ibuffer-filter-group-kill-ring)
--- 688,697 ----
;;;###autoload
(defun ibuffer-yank-filter-group (name)
"Yank the last killed filter group before group named NAME."
! (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)