From 9d70e4da7402e5a89db6a1b175b917cd3fb37e36 Mon Sep 17 00:00:00 2001 From: Tino Calancha Date: Fri, 8 Jul 2016 01:15:54 +0900 Subject: [PATCH] * lisp/ibuffer.el: Add face for locked buffers --- lisp/ibuffer.el | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index a8eba8da89..ff1eb8b2dd 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -160,7 +160,8 @@ elisp byte-compiler." (null buffer-file-name)) italic) (30 (memq major-mode ibuffer-help-buffer-modes) font-lock-comment-face) - (35 (derived-mode-p 'dired-mode) font-lock-function-name-face)) + (35 (derived-mode-p 'dired-mode) font-lock-function-name-face) + (40 (and (boundp 'emacs-lock-mode) emacs-lock-mode) ibuffer-locked-buffer)) "An alist describing how to fontify buffers. Each element should be of the form (PRIORITY FORM FACE), where PRIORITY is an integer, FORM is an arbitrary form to evaluate in the @@ -1733,6 +1734,15 @@ If point is on a group name, this function operates on that group." (defvar ibuffer-inline-columns nil) +(defface ibuffer-locked-buffer + '((((background dark)) (:foreground "RosyBrown")) + (t (:foreground "brown4"))) + "*Face used for locked buffers in Ibuffer." + :version "25.2" + :group 'ibuffer + :group 'font-lock-highlighting-faces) +(defvar ibuffer-locked-buffer 'ibuffer-locked-buffer) + (define-ibuffer-column mark (:name " " :inline t) (string mark)) @@ -1741,7 +1751,8 @@ If point is on a group name, this function operates on that group." (string ibuffer-read-only-char) " ")) -(define-ibuffer-column locked (:name "L" :inline t) +(define-ibuffer-column locked + (:name "L" :inline t :props ('font-lock-face 'ibuffer-locked-buffer)) (if (and (boundp 'emacs-lock-mode) emacs-lock-mode) (string ibuffer-locked-char) " ")) -- 2.39.2