From b842d027859f849d5ee06389fb8abf7f0bf0f337 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Tue, 14 Jan 2025 07:37:18 +0100 Subject: [PATCH] ; (completion-preview--bg-color): Fix bug#75544. * lisp/completion-preview.el (completion-preview--bg-color): Fix loop check. (cherry picked from commit 0226d3579461c57513cb0a600eda1f6fb17f8d22) --- 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 dc32e442900..cc8ef996a22 100644 --- 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))) -- 2.39.5