/[emacs]/emacs/lisp/ibuffer.el
ViewVC logotype

Diff of /emacs/lisp/ibuffer.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38 by walters, Tue Aug 6 06:04:22 2002 UTC revision 1.39 by jpw, Thu Aug 29 22:06:26 2002 UTC
# Line 2007  Do not display messages if SILENT is non Line 2007  Do not display messages if SILENT is non
2007    (ibuffer-forward-line 0)    (ibuffer-forward-line 0)
2008    (let* ((bufs (buffer-list))    (let* ((bufs (buffer-list))
2009           (blist (ibuffer-filter-buffers           (blist (ibuffer-filter-buffers
2010                  (current-buffer)                   (current-buffer)
2011                  (if (and                   (if (and
2012                       (cadr bufs)                        (cadr bufs)
2013                       (eq ibuffer-always-show-last-buffer                        (eq ibuffer-always-show-last-buffer
2014                           :nomini)                            :nomini)
2015                       ;; This is a hack.                        (with-current-buffer (cadr bufs)
2016                       (string-match " \\*Minibuf"                          (minibufferp)))
2017                                     (buffer-name (cadr bufs))))                       (car (cddr bufs))
2018                      (caddr bufs)                     (cadr bufs))
2019                    (cadr bufs))                   (ibuffer-current-buffers-with-marks bufs)
2020                  (ibuffer-current-buffers-with-marks bufs)                   arg)))
                 arg)))  
2021      (when (null blist)      (when (null blist)
2022        (if (and (featurep 'ibuf-ext)        (if (and (featurep 'ibuf-ext)
2023                 ibuffer-filtering-qualifiers)                 ibuffer-filtering-qualifiers)

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26