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

[John Paul Wallington]

Index: emacs/lisp/ibuffer.el
diff -c emacs/lisp/ibuffer.el:1.38 emacs/lisp/ibuffer.el:1.39
*** emacs/lisp/ibuffer.el:1.38  Tue Aug  6 02:04:22 2002
--- emacs/lisp/ibuffer.el       Thu Aug 29 18:06:26 2002
***************
*** 2007,2024 ****
    (ibuffer-forward-line 0)
    (let* ((bufs (buffer-list))
         (blist (ibuffer-filter-buffers
!               (current-buffer)
!               (if (and
!                    (cadr bufs)
!                    (eq ibuffer-always-show-last-buffer
!                        :nomini)
!                    ;; This is a hack.
!                    (string-match " \\*Minibuf"
!                                  (buffer-name (cadr bufs))))
!                   (caddr bufs)
!                 (cadr bufs))
!               (ibuffer-current-buffers-with-marks bufs)
!               arg)))
      (when (null blist)
        (if (and (featurep 'ibuf-ext)
               ibuffer-filtering-qualifiers)
--- 2007,2023 ----
    (ibuffer-forward-line 0)
    (let* ((bufs (buffer-list))
         (blist (ibuffer-filter-buffers
!                (current-buffer)
!                (if (and
!                     (cadr bufs)
!                     (eq ibuffer-always-show-last-buffer
!                         :nomini)
!                     (with-current-buffer (cadr bufs)
!                       (minibufferp)))
!                    (car (cddr bufs))
!                  (cadr bufs))
!                (ibuffer-current-buffers-with-marks bufs)
!                arg)))
      (when (null blist)
        (if (and (featurep 'ibuf-ext)
               ibuffer-filtering-qualifiers)