From 59c343ba0d0a760e01892c980ec8e427d42ed3cc Mon Sep 17 00:00:00 2001 From: Pip Cet Date: Thu, 1 Oct 2020 05:06:41 +0200 Subject: [PATCH] Don't optimize away star patterns in minibuffer file name completion * lisp/minibuffer.el (completion-pcm--optimize-pattern): Keep 'star in the pattern (bug#41705). --- lisp/minibuffer.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 3e23c05bb0c..427636e8662 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -3110,12 +3110,12 @@ or a symbol, see `completion-pcm--merge-completions'." (while p (pcase p (`(,(or 'any 'any-delim) point . ,rest) (setq p `(point . ,rest))) - ;; This is not just a performance improvement: it also turns - ;; a terminating `point' into an implicit `any', which - ;; affects the final position of point (because `point' gets - ;; turned into a non-greedy ".*?" regexp whereas we need - ;; it the be greedy when it's at the end, see bug#38458). - (`(,(pred symbolp)) (setq p nil)) ;Implicit terminating `any'. + ;; This is not just a performance improvement: it turns a + ;; terminating `point' into an implicit `any', which affects + ;; the final position of point (because `point' gets turned + ;; into a non-greedy ".*?" regexp whereas we need it to be + ;; greedy when it's at the end, see bug#38458). + (`(point) (setq p nil)) ;Implicit terminating `any'. (_ (push (pop p) n)))) (nreverse n))) -- 2.39.5