[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/completions-highlight-modifications 268170e 16/25: Define comple
From: |
Jimmy Aguilar Mena |
Subject: |
feature/completions-highlight-modifications 268170e 16/25: Define completions-highlight face and group |
Date: |
Fri, 20 Nov 2020 13:28:34 -0500 (EST) |
branch: feature/completions-highlight-modifications
commit 268170e7a9d58b8121d8737c4820448d15bb8d30
Author: Jimmy Aguilar Mena <spacibba@aol.com>
Commit: Jimmy Aguilar Mena <spacibba@aol.com>
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.
---
lisp/completions-highlight.el | 15 +++++++++++++--
1 file changed, 13 insertions(+), 2 deletions(-)
diff --git a/lisp/completions-highlight.el b/lisp/completions-highlight.el
index 78017f9..d310068 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)
- feature/completions-highlight-modifications 6cea893 07/25: Fix corner case when going out of bounds, (continued)
- feature/completions-highlight-modifications 6cea893 07/25: Fix corner case when going out of bounds, Jimmy Aguilar Mena, 2020/11/20
- feature/completions-highlight-modifications e143246 10/25: Simplify overlay handling, Jimmy Aguilar Mena, 2020/11/20
- feature/completions-highlight-modifications ab1e2e6 15/25: Add custom variable completions-highlight-autoselect., Jimmy Aguilar Mena, 2020/11/20
- feature/completions-highlight-modifications 10359ba 19/25: Fix previous commit, Jimmy Aguilar Mena, 2020/11/20
- feature/completions-highlight-modifications bfb8a71 21/25: Add ignore-errors when executing from minibuffer, Jimmy Aguilar Mena, 2020/11/20
- feature/completions-highlight-modifications 3319dcc 22/25: New command minibuffer-choose-completion, Jimmy Aguilar Mena, 2020/11/20
- feature/completions-highlight-modifications 6369e59 23/25: Other changes:, Jimmy Aguilar Mena, 2020/11/20
- feature/completions-highlight-modifications c990a28 24/25: Simplify and add custom, Jimmy Aguilar Mena, 2020/11/20
- feature/completions-highlight-modifications 42f47e7 06/25: Fix recursive set-keymap-parent in completions-highlight., Jimmy Aguilar Mena, 2020/11/20
- feature/completions-highlight-modifications 644d5e5 08/25: Simplify numeric argument, Jimmy Aguilar Mena, 2020/11/20
- feature/completions-highlight-modifications 268170e 16/25: Define completions-highlight face and group,
Jimmy Aguilar Mena <=