diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-12-05 01:22:54 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-12-05 01:22:54 +0000 |
| commit | 25b54627386865f0f705d1fb9bbfc0f79e93a571 (patch) | |
| tree | d6d5067de6e49713e6be1b4cdce9482835bdd1b6 /lisp/minibuffer.el | |
| parent | 35639eb45f4c10ff49641116dd0e7bbd06b6363a (diff) | |
| download | emacs-25b54627386865f0f705d1fb9bbfc0f79e93a571.tar.gz | |
(completion-pcm--merge-try): Also consider placing point after a star, if
that's the only place where modifications can make progress.
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index cfe4d6f90de..66895b0fdb0 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -1984,7 +1984,9 @@ filter out additional entries (because TABLE migth not obey PRED)." ;; order of preference) either at the old point, or at ;; the last place where there's something to choose, or ;; at the very end. - (pointpat (or (memq 'point mergedpat) (memq 'any mergedpat) + (pointpat (or (memq 'point mergedpat) + (memq 'any mergedpat) + (memq 'star mergedpat) mergedpat)) ;; New pos from the start. (newpos (length (completion-pcm--pattern->string pointpat))) |