Revert "Remove corfu-popupinfo face"

This reverts commit 21edb09ddcfda7f90ad357346137ce0e669017a3.

1 files changed, 8 insertions, 1 deletions

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 44d199e..5adb182 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)