Mercurial > emacs
comparison lisp/ibuffer.el @ 47147:bee830f164b7
(ibuffer-update): Revert expansion of `caddr'.
(ibuffer-fontification-alist): Check hidden buffer case isn't
visiting a file and change its face to italic.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Fri, 30 Aug 2002 12:42:36 +0000 |
| parents | b0e4184605e5 |
| children | 84e278f2225f |
comparison
equal
deleted
inserted
replaced
| 47146:4afe5ef50bf4 | 47147:bee830f164b7 |
|---|---|
| 133 :group 'ibuffer) | 133 :group 'ibuffer) |
| 134 | 134 |
| 135 (defcustom ibuffer-fontification-alist | 135 (defcustom ibuffer-fontification-alist |
| 136 `((10 buffer-read-only font-lock-constant-face) | 136 `((10 buffer-read-only font-lock-constant-face) |
| 137 (15 (string-match "^*" (buffer-name)) font-lock-keyword-face) | 137 (15 (string-match "^*" (buffer-name)) font-lock-keyword-face) |
| 138 (20 (string-match "^ " (buffer-name)) font-lock-warning-face) | 138 (20 (and (string-match "^ " (buffer-name)) |
| 139 (null buffer-file-name)) | |
| 140 italic) | |
| 139 (25 (memq major-mode ibuffer-help-buffer-modes) font-lock-comment-face) | 141 (25 (memq major-mode ibuffer-help-buffer-modes) font-lock-comment-face) |
| 140 (30 (eq major-mode 'dired-mode) font-lock-function-name-face)) | 142 (30 (eq major-mode 'dired-mode) font-lock-function-name-face)) |
| 141 "An alist describing how to fontify buffers. | 143 "An alist describing how to fontify buffers. |
| 142 Each element should be of the form (PRIORITY FORM FACE), where | 144 Each element should be of the form (PRIORITY FORM FACE), where |
| 143 PRIORITY is an integer, FORM is an arbitrary form to evaluate in the | 145 PRIORITY is an integer, FORM is an arbitrary form to evaluate in the |
| 2012 (cadr bufs) | 2014 (cadr bufs) |
| 2013 (eq ibuffer-always-show-last-buffer | 2015 (eq ibuffer-always-show-last-buffer |
| 2014 :nomini) | 2016 :nomini) |
| 2015 (with-current-buffer (cadr bufs) | 2017 (with-current-buffer (cadr bufs) |
| 2016 (minibufferp))) | 2018 (minibufferp))) |
| 2017 (car (cddr bufs)) | 2019 (caddr bufs) |
| 2018 (cadr bufs)) | 2020 (cadr bufs)) |
| 2019 (ibuffer-current-buffers-with-marks bufs) | 2021 (ibuffer-current-buffers-with-marks bufs) |
| 2020 arg))) | 2022 arg))) |
| 2021 (when (null blist) | 2023 (when (null blist) |
| 2022 (if (and (featurep 'ibuf-ext) | 2024 (if (and (featurep 'ibuf-ext) |