From: John Paul Wallington Date: Fri, 30 Aug 2002 12:42:36 +0000 (+0000) Subject: (ibuffer-update): Revert expansion of `caddr'. X-Git-Tag: ttn-vms-21-2-B4~13465 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da337a287b558e198b7fb09da16fd73228c6bfcb;p=emacs.git (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 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)))