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

* lisp/completion-preview.el (completion-preview--bg-color):
Fix loop check.

(cherry picked from commit 0226d3579461c57513cb0a600eda1f6fb17f8d22)

diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el
index dc32e442900995cec24bc5892b4315d24720307d..cc8ef996a2216accd8b663fdf079e89ea4624413 100644 (file)
--- a/lisp/completion-preview.el
+++ b/lisp/completion-preview.el
@@ -340,7 +340,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)))