diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/ibuffer.el | 6 |
2 files changed, 10 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 76dffe0b4e3..70c97fa9d5b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-08-30 John Paul Wallington <jpw@shootybangbang.com> + + * ibuffer.el (ibuffer-update): Revert expansion of `caddr'. + (ibuffer-fontification-alist): Check hidden buffer case isn't + visiting a file and change its face to italic. + 2002-08-30 Juanma Barranquero <lektu@terra.es> * replace.el (occur-mode): Add interactive declaration. diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 3e471498096..0f6497c4105 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -135,7 +135,9 @@ elisp byte-compiler." (defcustom ibuffer-fontification-alist `((10 buffer-read-only font-lock-constant-face) (15 (string-match "^*" (buffer-name)) font-lock-keyword-face) - (20 (string-match "^ " (buffer-name)) font-lock-warning-face) + (20 (and (string-match "^ " (buffer-name)) + (null buffer-file-name)) + italic) (25 (memq major-mode ibuffer-help-buffer-modes) font-lock-comment-face) (30 (eq major-mode 'dired-mode) font-lock-function-name-face)) "An alist describing how to fontify buffers. @@ -2014,7 +2016,7 @@ Do not display messages if SILENT is non-nil." :nomini) (with-current-buffer (cadr bufs) (minibufferp))) - (car (cddr bufs)) + (caddr bufs) (cadr bufs)) (ibuffer-current-buffers-with-marks bufs) arg))) |