Fix previous completion-pcm--optimize-pattern fix

* lisp/minibuffer.el (completion-pcm--optimize-pattern): Re-fix
previous change.
This commit is contained in:
Lars Ingebrigtsen 2021-03-01 22:41:42 +01:00
parent 7b62cda96e
commit bac0089fb8

View file

@ -3162,7 +3162,7 @@ or a symbol, see `completion-pcm--merge-completions'."
(let ((n '()))
(while p
(pcase p
(`(,(or 'any 'any-delim) ,(or 'any 'point))
(`(,(or 'any 'any-delim) ,(or 'any 'point) . ,_)
(setq p (cdr p)))
;; This is not just a performance improvement: it turns a
;; terminating `point' into an implicit `any', which affects