diff options
| -rw-r--r-- | extensions/corfu-popupinfo.el | 9 |
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) |