From da337a287b558e198b7fb09da16fd73228c6bfcb Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Fri, 30 Aug 2002 12:42:36 +0000 Subject: [PATCH] (ibuffer-update): Revert expansion of `caddr'. (ibuffer-fontification-alist): Check hidden buffer case isn't visiting a file and change its face to italic. --- lisp/ChangeLog | 6 ++++++ 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 + + * 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 * 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))) -- 2.39.5