From ad4ca87ca4502bedab2b07da11a8478425459f35 Mon Sep 17 00:00:00 2001
From: Protesilaos Stavrou <info@protesilaos.com>
Date: Sat, 8 Nov 2025 07:42:14 +0200
Subject: [PATCH] Make ibuffer.el use dedicated faces

* lisp/ibuffer.el (ibuffer-marked, ibuffer-deletion)
(ibuffer-title, ibuffer-filter-group-name): Define the faces.
(ibuffer-marked-face, ibuffer-deletion-face, ibuffer-title-face)
(ibuffer-filter-group-name-face): Make the new faces the default
values.  (Bug#79786)
---
 lisp/ibuffer.el | 28 ++++++++++++++++++++++++----
 1 file changed, 24 insertions(+), 4 deletions(-)

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index ae7e8dd4117..a55ba26c8ec 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -349,20 +349,40 @@ directory, like `default-directory'."
 (make-obsolete-variable 'ibuffer-load-hook
                         "use `with-eval-after-load' instead." "28.1")
 
-(defcustom ibuffer-marked-face 'warning
+(defface ibuffer-marked '((t :inherit warning))
+  "Face used by default in `ibuffer-marked-face'."
+  :version "31.1")
+
+(defface ibuffer-deletion '((t :inherit error))
+  "Face used by default in `ibuffer-deletion-face'."
+  :version "31.1")
+
+(defface ibuffer-title '((t :inherit font-lock-type-face))
+  "Face used by default in `ibuffer-title-face'."
+  :version "31.1")
+
+(defface ibuffer-filter-group-name '((t :inherit bold))
+  "Face used by default in `ibuffer-filter-group-name-face'."
+  :version "31.1")
+
+(defcustom ibuffer-marked-face 'ibuffer-marked
   "Face used for displaying marked buffers."
+  :version "31.1"
   :type 'face)
 
-(defcustom ibuffer-deletion-face 'error
+(defcustom ibuffer-deletion-face 'ibuffer-deletion
   "Face used for displaying buffers marked for deletion."
+  :version "31.1"
   :type 'face)
 
-(defcustom ibuffer-title-face 'font-lock-type-face
+(defcustom ibuffer-title-face 'ibuffer-title
   "Face used for the title string."
+    :version "31.1"
   :type 'face)
 
-(defcustom ibuffer-filter-group-name-face 'bold
+(defcustom ibuffer-filter-group-name-face 'ibuffer-filter-group-name
   "Face used for displaying filtering group names."
+  :version "31.1"
   :type 'face)
 
 (defcustom ibuffer-directory-abbrev-alist nil