diff options
| author | Lars Ingebrigtsen | 2021-03-01 22:41:42 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-03-01 22:41:42 +0100 |
| commit | bac0089fb8b15b71bd4bde00f6fd8e1c4b9fbd1d (patch) | |
| tree | 013fe21d9220a352f3e0ccda6f493a3b80e69ef5 | |
| parent | 7b62cda96e69c34cf51f300c02a08f5ea2bbb486 (diff) | |
| download | emacs-bac0089fb8b15b71bd4bde00f6fd8e1c4b9fbd1d.tar.gz emacs-bac0089fb8b15b71bd4bde00f6fd8e1c4b9fbd1d.zip | |
Fix previous completion-pcm--optimize-pattern fix
* lisp/minibuffer.el (completion-pcm--optimize-pattern): Re-fix
previous change.
| -rw-r--r-- | lisp/minibuffer.el | 2 |
1 files changed, 1 insertions, 1 deletions
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'." | |||
| 3162 | (let ((n '())) | 3162 | (let ((n '())) |
| 3163 | (while p | 3163 | (while p |
| 3164 | (pcase p | 3164 | (pcase p |
| 3165 | (`(,(or 'any 'any-delim) ,(or 'any 'point)) | 3165 | (`(,(or 'any 'any-delim) ,(or 'any 'point) . ,_) |
| 3166 | (setq p (cdr p))) | 3166 | (setq p (cdr p))) |
| 3167 | ;; This is not just a performance improvement: it turns a | 3167 | ;; This is not just a performance improvement: it turns a |
| 3168 | ;; terminating `point' into an implicit `any', which affects | 3168 | ;; terminating `point' into an implicit `any', which affects |