diff options
| author | John Paul Wallington <jpw@pobox.com> | 2005-03-02 21:28:57 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2005-03-02 21:28:57 +0000 |
| commit | b8210c6e5ff747e56efa978a99b4ed176d58aa69 (patch) | |
| tree | 4f9057e40b8cf9492364aca1049957b5f55a1a9b | |
| parent | b656e0f4bc859484fbe136cf095f9798c4477d54 (diff) | |
| download | emacs-b8210c6e5ff747e56efa978a99b4ed176d58aa69.tar.gz | |
(ibuffer-filter-disable): Move back to the current buffer after
removing limits.
(ibuffer-pop-filter): Ditto.
Update copyright.
From: Romain Francoise <romain@orebokech.com>
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/ibuf-ext.el | 12 |
2 files changed, 16 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 01fb5a5e6b4..8964538ee3e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2005-03-02 Romain Francoise <romain@orebokech.com> + + * ibuf-ext.el (ibuffer-filter-disable): Move back to the current + buffer after removing limits. + (ibuffer-pop-filter): Ditto. + Update copyright. + 2005-03-02 Miles Bader <miles@gnu.org> * button.el (make-text-button): If the user doesn't specify a diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index bed4330d0c2..e2e5d251371 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -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 @@ of replacing the current filters." "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 @@ of replacing the current filters." (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'." |