[Emacs-diffs] Changes to emacs/lisp/ibuf-ext.el

[John Paul Wallington]

Index: emacs/lisp/ibuf-ext.el
diff -c emacs/lisp/ibuf-ext.el:1.40 emacs/lisp/ibuf-ext.el:1.41
*** emacs/lisp/ibuf-ext.el:1.40 Sat Oct 23 19:54:08 2004
--- emacs/lisp/ibuf-ext.el      Wed Mar  2 21:27:05 2005
***************
*** 1,6 ****
  ;;; ibuf-ext.el --- extensions for ibuffer
  
! ;; Copyright (C) 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
  
  ;; Author: Colin Walters <address@hidden>
  ;; Maintainer: John Paul Wallington <address@hidden>
--- 1,6 ----
  ;;; ibuf-ext.el --- extensions for ibuffer
  
! ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, 
Inc.
  
  ;; Author: Colin Walters <address@hidden>
  ;; Maintainer: John Paul Wallington <address@hidden>
***************
*** 753,759 ****
    "Disable all filters currently in effect in this buffer."
    (interactive)
    (setq ibuffer-filtering-qualifiers nil)
!   (ibuffer-update nil t))
  
  ;;;###autoload
  (defun ibuffer-pop-filter ()
--- 753,762 ----
    "Disable all filters currently in effect in this buffer."
    (interactive)
    (setq ibuffer-filtering-qualifiers nil)
!   (let ((buf (ibuffer-current-buffer)))
!     (ibuffer-update nil t)
!     (when buf
!       (ibuffer-jump-to-buffer (buffer-name buf)))))
  
  ;;;###autoload
  (defun ibuffer-pop-filter ()
***************
*** 762,768 ****
    (when (null ibuffer-filtering-qualifiers)
      (error "No filters in effect"))
    (pop ibuffer-filtering-qualifiers)
!   (ibuffer-update nil t))
  
  (defun ibuffer-push-filter (qualifier)
    "Add QUALIFIER to `ibuffer-filtering-qualifiers'."
--- 765,774 ----
    (when (null ibuffer-filtering-qualifiers)
      (error "No filters in effect"))
    (pop ibuffer-filtering-qualifiers)
!   (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'."