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

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

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