branch: externals/corfu
commit edd990d7411cbd1c1ab19c16b4ed4112ad5e1d41
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Revert "Remove corfu-popupinfo face"
This reverts commit 21edb09ddcfda7f90ad357346137ce0e669017a3.
---
extensions/corfu-popupinfo.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 44d199eb22..5adb182640 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -45,6 +45,11 @@
(require 'cl-lib)
(require 'subr-x))
+(defface corfu-popupinfo
+ '((t :inherit corfu-default))
+ "Face used for the info popup."
+ :group 'corfu-faces)
+
(defcustom corfu-popupinfo-delay '(2.0 . 1.0)
"Automatically update info popup after that number of seconds.
@@ -358,7 +363,9 @@ form (X Y WIDTH HEIGHT DIR)."
(insert content)
(goto-char (point-min)))
(dolist (var corfu-popupinfo--buffer-parameters)
- (set (make-local-variable (car var)) (cdr var))))
+ (set (make-local-variable (car var)) (cdr var)))
+ (when-let ((m (memq 'corfu-default (alist-get 'default
face-remapping-alist))))
+ (setcar m 'corfu-popupinfo)))
(corfu-popupinfo--hide)
(setq cand-changed nil coords-changed nil)))
(when (or cand-changed coords-changed)
