(ibuffer-update): Revert expansion of `caddr'.

(ibuffer-fontification-alist): Check hidden buffer case isn't
visiting a file and change its face to italic.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76dffe0b4e34b6c894f1b63f982e597bc65309ac..70c97fa9d5be70943075727f998294a9630a8eeb 100644 (file)
--- 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 3e471498096324bc8357828c109b1c1d13f20c4f..0f6497c41057007b17fa70a6752b0919d82d4269 100644 (file)
--- 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)))