[elpa] externals/corfu 9ec9f08428: Use correct format of corfu-popupinfo face remapping alist (Fix #342)

[ELPA Syncer]

branch: externals/corfu
commit 9ec9f08428f232de05f0d0a19191c54ed60011bb
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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) "-+")))