changeset 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 4afe5ef50bf4
children be0335657440
files lisp/ChangeLog lisp/ibuffer.el
diffstat 2 files changed, 10 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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)))