branch: externals/corfu
commit 9ec9f08428f232de05f0d0a19191c54ed60011bb
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Use correct format of corfu-popupinfo face remapping alist (Fix #342)
---
extensions/corfu-popupinfo.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 2567346cb3..53f79d8915 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -354,8 +354,8 @@ form (X Y WIDTH HEIGHT DIR)."
(goto-char (point-min)))
(dolist (var corfu-popupinfo--buffer-parameters)
(set (make-local-variable (car var)) (cdr var)))
- (setf face-remapping-alist (copy-tree face-remapping-alist)
- (alist-get 'default face-remapping-alist)
'corfu-popupinfo))
+ (when-let ((m (memq 'corfu-default (alist-get 'default
face-remapping-alist))))
+ (setcar m 'corfu-popupinfo)))
(unless (eq corfu-popupinfo--toggle 'init)
(message "No %s available for `%s'"
(car (last (split-string (symbol-name
corfu-popupinfo--function) "-+")))
