master 0226d357946: ; (completion-preview--bg-color): Fix bug#75544.

[Eshel Yaron]

branch: master
commit 0226d3579461c57513cb0a600eda1f6fb17f8d22
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    ; (completion-preview--bg-color): Fix bug#75544.
    
    * lisp/completion-preview.el (completion-preview--bg-color):
    Fix loop check.
---
 lisp/completion-preview.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el
index e3ddea02830..9bac9711331 100644
--- a/lisp/completion-preview.el
+++ b/lisp/completion-preview.el
@@ -330,7 +330,7 @@ Completion Preview mode avoids updating the preview after 
these commands.")
       (dolist (face (if (face-list-p spec) spec (list spec)))
         (let (cur)
           (if (and (setq cur (alist-get face face-remapping-alist))
-                   (not (memq cur trace)))
+                   (not (memq face trace)))
               (rec cur (cons face trace))
             (cond ((and face (symbolp face))
                    (let ((value (face-attribute face :background nil t)))