procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* lisp/completion-preview.el (completion-preview--bg-color):
Fix loop check.
This commit is contained in:
Eshel Yaron 2025-01-14 07:37:18 +01:00
parent e6ad99e36c
commit 0226d35794
No known key found for this signature in database
GPG key ID: EF3EE9CA35D78618
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/completion-preview.el
View file

@ -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)))