branch: elpa/vcomplete
commit cbdde2fc09b5d016537a8e14ec5629fbdb985c1e
Author: Daniel Semyonov <dan...@dsemy.com>
Commit: Daniel Semyonov <dan...@dsemy.com>
Define a face for highlighting completions
* vcomplete.el (vcomplete-highlight): New face.
(vcomplete--highlight-completion-at-point): Use 'vcomplete-highlight'.
---
NEWS | 4 ++++
vcomplete.el | 6 +++++-
2 files changed, 9 insertions(+), 1 deletion(-)
diff --git a/NEWS b/NEWS
index 64ec9b69f3..9df7f5d1bf 100644
--- a/NEWS
+++ b/NEWS
@@ -3,6 +3,10 @@ See the end of the file for an explanation of the versioning
scheme.
* 1.1 (in development)
+** Add the 'vcomplete-highlight' face.
+This face is used to highlight completions. By default, it is the same
+as the built-in 'highlight' face.
+
** Add 'vcomplete-no-update-commands'.
This custom variable is used to control which commands shouldn't cause
the completions list buffer to update.
diff --git a/vcomplete.el b/vcomplete.el
index f720ee8904..2ec35db83f 100644
--- a/vcomplete.el
+++ b/vcomplete.el
@@ -101,6 +101,10 @@ Otherwise, operate according to `completion-auto-help'."
:risky t
:package-version '(vcomplete . 1.1))
+(defface vcomplete-highlight '((t :inherit highlight))
+ "Face for highlighting completions."
+ :package-version '(vcomplete . 1.1))
+
;;;; Completion commands:
(defmacro vcomplete-with-completions-buffer (&rest body)
@@ -155,7 +159,7 @@ isn't a completion list buffer."
(overlay-put
(setq vcomplete--last-completion-overlay
(make-overlay (car pos) (cdr pos)))
- 'face 'highlight)))))
+ 'face 'vcomplete-highlight)))))
(defun vcomplete--move-n-completions (n)
"Move N completions in the `*Completions*' buffer."
