Mercurial > emacs

comparison lisp/ibuffer.el @ 47114:b0e4184605e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* ibuffer.el (ibuffer-update): Use `minibufferp'. Expand `caddr'. * mwheel.el (mouse-wheel-up-button): Doc fix.
author John Paul Wallington <jpw@pobox.com>
date Thu, 29 Aug 2002 22:06:26 +0000
parents 86fa1b4393a2
children bee830f164b7
comparison
equal deleted inserted replaced
47113:72b3185698c4 47114:b0e4184605e5
2005 Do not display messages if SILENT is non-nil." 2005 Do not display messages if SILENT is non-nil."
2006 (interactive "P") 2006 (interactive "P")
2007 (ibuffer-forward-line 0) 2007 (ibuffer-forward-line 0)
2008 (let* ((bufs (buffer-list)) 2008 (let* ((bufs (buffer-list))
2009 (blist (ibuffer-filter-buffers 2009 (blist (ibuffer-filter-buffers
2010 (current-buffer) 2010 (current-buffer)
2011 (if (and 2011 (if (and
2012 (cadr bufs) 2012 (cadr bufs)
2013 (eq ibuffer-always-show-last-buffer 2013 (eq ibuffer-always-show-last-buffer
2014 :nomini) 2014 :nomini)
2015 ;; This is a hack. 2015 (with-current-buffer (cadr bufs)
2016 (string-match " \\*Minibuf" 2016 (minibufferp)))
2017 (buffer-name (cadr bufs)))) 2017 (car (cddr bufs))
2018 (caddr bufs) 2018 (cadr bufs))
2019 (cadr bufs)) 2019 (ibuffer-current-buffers-with-marks bufs)
2020 (ibuffer-current-buffers-with-marks bufs) 2020 arg)))
2021 arg)))
2022 (when (null blist) 2021 (when (null blist)
2023 (if (and (featurep 'ibuf-ext) 2022 (if (and (featurep 'ibuf-ext)
2024 ibuffer-filtering-qualifiers) 2023 ibuffer-filtering-qualifiers)
2025 (message "No buffers! (note: filtering in effect)") 2024 (message "No buffers! (note: filtering in effect)")
2026 (error "No buffers!"))) 2025 (error "No buffers!")))