; Avoid minibuffer.el compilation warning about cl-every

This commit is contained in:
Mattias Engdegård 2025-11-03 10:53:27 +01:00
parent d123ac1400
commit f2836a8515

View file

@ -4324,7 +4324,7 @@ one wildcard."
(when (cdr segment)
(concat
(when group "\\(")
(if (cl-every (lambda (x) (eq x 'any-delim)) (cdr segment))
(if (all (lambda (x) (eq x 'any-delim)) (cdr segment))
(concat completion-pcm--delim-wild-regex "*?")
"[^z-a]*?")
(when group "\\)")))))