[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/completions-highlight-modifications ac93fdb 16/18: Define comple
From: |
Jimmy Aguilar Mena |
Subject: |
feature/completions-highlight-modifications ac93fdb 16/18: Define completions-highlight face and group |
Date: |
Wed, 18 Nov 2020 22:30:37 -0500 (EST) |
branch: feature/completions-highlight-modifications
commit ac93fdbeb0ad0aa58dfc0a8119da486904b8df45
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 8a60d7d 08/18: Simplify numeric argument, (continued)
- feature/completions-highlight-modifications 8a60d7d 08/18: Simplify numeric argument, Jimmy Aguilar Mena, 2020/11/18
- feature/completions-highlight-modifications a686211 10/18: Simplify overlay handling, Jimmy Aguilar Mena, 2020/11/18
- feature/completions-highlight-modifications 34570e1 14/18: Improve completions-highlight description in file header., Jimmy Aguilar Mena, 2020/11/18
- feature/completions-highlight-modifications bfe4747 12/18: Add parent maps, Jimmy Aguilar Mena, 2020/11/18
- feature/completions-highlight-modifications 6db2c4a 17/18: Simplify and rely more in the post-command-hook, Jimmy Aguilar Mena, 2020/11/18
- feature/completions-highlight-modifications d397d2b 13/18: Add # to function bindings, Jimmy Aguilar Mena, 2020/11/18
- feature/completions-highlight-modifications cb02cb6 11/18: Add autoload decorator., Jimmy Aguilar Mena, 2020/11/18
- feature/completions-highlight-modifications 9fe2441 15/18: Add custom variable completions-highlight-autoselect., Jimmy Aguilar Mena, 2020/11/18
- feature/completions-highlight-modifications ff46a8f 18/18: Add backtab commands., Jimmy Aguilar Mena, 2020/11/18
- feature/completions-highlight-modifications 71f60b6 07/18: Fix corner case when going out of bounds, Jimmy Aguilar Mena, 2020/11/18
- feature/completions-highlight-modifications ac93fdb 16/18: Define completions-highlight face and group,
Jimmy Aguilar Mena <=
- feature/completions-highlight-modifications f3ad5c1 09/18: Simplify setting keymaps., Jimmy Aguilar Mena, 2020/11/18