diff options
| author | João Távora | 2026-02-07 00:55:52 +0000 |
|---|---|---|
| committer | João Távora | 2026-02-07 00:55:52 +0000 |
| commit | 54caeafb1dcd1af159131cbf0189de171f73949b (patch) | |
| tree | 4037706a60c8d9c89d1e06bfdb389b6f261afc1f | |
| parent | 8279a9b6a1354a889f13ff87d76d9e5a71ca6469 (diff) | |
| download | emacs-feature/newflex.tar.gz emacs-feature/newflex.zip | |
When crafting "override" regexp for new flex stylefeature/newflex
* lisp/minibuffer.el (completion-substring--all-completions): Fix.
| -rw-r--r-- | lisp/minibuffer.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 5b5408a595c..ffdc84aea90 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el | |||
| @@ -4909,10 +4909,11 @@ SIMPLE-RE is means to pass a simpler faster regular expression to | |||
| 4909 | (funcall transform-pattern-fn pattern) | 4909 | (funcall transform-pattern-fn pattern) |
| 4910 | pattern))) | 4910 | pattern))) |
| 4911 | (override-re (and simple-re | 4911 | (override-re (and simple-re |
| 4912 | (mapconcat #'identity | 4912 | (mapconcat #'regexp-quote |
| 4913 | (split-string | 4913 | (split-string |
| 4914 | (substring string (car bounds) | 4914 | (substring string (car bounds) |
| 4915 | (+ point (cdr bounds))) "" t) | 4915 | (+ point (cdr bounds))) |
| 4916 | "" t) | ||
| 4916 | ".*"))) | 4917 | ".*"))) |
| 4917 | (all (completion-pcm--all-completions prefix pattern table pred override-re))) | 4918 | (all (completion-pcm--all-completions prefix pattern table pred override-re))) |
| 4918 | (list all pattern prefix suffix (car bounds)))) | 4919 | (list all pattern prefix suffix (car bounds)))) |