# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1030711356 0
# Node ID bee830f164b731b078b4a795c864fc5db7e67221
# Parent  4afe5ef50bf435bac488c5b72e79b25cb04abdb9
(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 -r 4afe5ef50bf4 -r bee830f164b7 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Aug 30 12:07:52 2002 +0000
+++ b/lisp/ChangeLog	Fri Aug 30 12:42:36 2002 +0000
@@ -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 -r 4afe5ef50bf4 -r bee830f164b7 lisp/ibuffer.el
--- a/lisp/ibuffer.el	Fri Aug 30 12:07:52 2002 +0000
+++ b/lisp/ibuffer.el	Fri Aug 30 12:42:36 2002 +0000
@@ -135,7 +135,9 @@
 (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 @@
 			  :nomini)
 		      (with-current-buffer (cadr bufs)
 			(minibufferp)))
-		     (car (cddr bufs))
+		     (caddr bufs)
 		   (cadr bufs))
 		 (ibuffer-current-buffers-with-marks bufs)
 		 arg)))