From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 1 Mar 2021 21:41:42 +0000 (+0100)
Subject: Fix previous completion-pcm--optimize-pattern fix
X-Git-Tag: emacs-28.0.90~3466
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bac0089fb8b15b71bd4bde00f6fd8e1c4b9fbd1d;p=emacs.git

Fix previous completion-pcm--optimize-pattern fix

* lisp/minibuffer.el (completion-pcm--optimize-pattern): Re-fix
previous change.
---

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index cd81f0f7286..55825e32fcd 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -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