mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(ibuffer-fontification-alist): Check hidden buffer case isn't
visiting a file and change its face to italic.
This commit is contained in:
John Paul Wallington 2002-08-30 12:42:36 +00:00
parent c76654a23a
commit da337a287b
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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.

6
lisp/ibuffer.el
View file

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