From: Jimmy Aguilar Mena <spacibba@aol.com>
Date: Thu, 19 Nov 2020 02:24:48 +0000 (+0100)
Subject: Define completions-highlight face and group
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=268170e7a9d58b8121d8737c4820448d15bb8d30;p=emacs.git

Define completions-highlight face and group

* lisp/completions-highlight.el (completions-highlight) : New face and
group.
(completions-highlight-mode) : Set new face to completions-highlight-overlay.
---

diff --git a/lisp/completions-highlight.el b/lisp/completions-highlight.el
index 78017f9662a..d310068fd1a 100644
--- a/lisp/completions-highlight.el
+++ b/lisp/completions-highlight.el
@@ -58,6 +58,11 @@
 (require 'simple)
 (require 'minibuffer)
 
+(defgroup completions-highlight nil
+  "Highlight candidates in completions buffer."
+  :version "28.1"
+  :group 'completion)
+
 (defcustom completions-highlight-autoselect nil
   "Select first candidate without extra tab.
 
@@ -66,9 +71,15 @@ highlight the first candidate in the *Completions* buffer.  When
 the value is non-nil the candidate is selected every time the
 buffer is shown and updated."
   :type 'boolean
-  :group 'completion
+  :group 'completions-highlight
   :version "28.1")
 
+(defface completions-highlight
+  '((t :inherit highlight :extend t))
+  "Default face for highlighting the current line in Hl-Line mode."
+  :version "28.1"
+  :group 'completions-highlight)
+
 (defvar completions-highlight-overlay (make-overlay 0 0)
   "Overlay to use when `completion-highlight-mode' is enabled.")
 
@@ -300,7 +311,7 @@ It is called when showing the *Completions* buffer."
 
   (if completions-highlight-mode
       (progn
-	(overlay-put completions-highlight-overlay 'face 'highlight)
+        (overlay-put completions-highlight-overlay 'face 'completions-highlight)
 
         (setq minibuffer-tab-through-completions-function-save
 	      minibuffer-tab-through-completions-function)