From 0226d3579461c57513cb0a600eda1f6fb17f8d22 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. --- 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)))