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) |