Mercurial > emacs
changeset 60343:48db693e88d3
(ibuffer-filter-disable): Move back to the current buffer after
removing limits.
(ibuffer-pop-filter): Ditto.
Update copyright.
From: Romain Francoise <romain@orebokech.com>
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Wed, 02 Mar 2005 21:27:05 +0000 |
| parents | 0f12295e50a4 |
| children | cfc334f2ed1c |
| files | lisp/ibuf-ext.el |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ibuf-ext.el Wed Mar 02 20:23:44 2005 +0000 +++ b/lisp/ibuf-ext.el Wed Mar 02 21:27:05 2005 +0000 @@ -1,6 +1,6 @@ ;;; ibuf-ext.el --- extensions for ibuffer -;; Copyright (C) 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Colin Walters <walters@verbum.org> ;; Maintainer: John Paul Wallington <jpw@gnu.org> @@ -753,7 +753,10 @@ "Disable all filters currently in effect in this buffer." (interactive) (setq ibuffer-filtering-qualifiers nil) - (ibuffer-update nil t)) + (let ((buf (ibuffer-current-buffer))) + (ibuffer-update nil t) + (when buf + (ibuffer-jump-to-buffer (buffer-name buf))))) ;;;###autoload (defun ibuffer-pop-filter () @@ -762,7 +765,10 @@ (when (null ibuffer-filtering-qualifiers) (error "No filters in effect")) (pop ibuffer-filtering-qualifiers) - (ibuffer-update nil t)) + (let ((buf (ibuffer-current-buffer))) + (ibuffer-update nil t) + (when buf + (ibuffer-jump-to-buffer (buffer-name buf))))) (defun ibuffer-push-filter (qualifier) "Add QUALIFIER to `ibuffer-filtering-qualifiers'."