diff options
| -rw-r--r-- | lisp/minibuffer.el | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index d33bd5f9836..a59fac6d556 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el | |||
| @@ -615,14 +615,9 @@ input if confirmed." | |||
| 615 | (let ((exts '(" " "-")) | 615 | (let ((exts '(" " "-")) |
| 616 | (before (substring string 0 point)) | 616 | (before (substring string 0 point)) |
| 617 | (after (substring string point)) | 617 | (after (substring string point)) |
| 618 | ;; If the user hasn't entered any text yet, then she | 618 | ;; Disable partial-completion for this. |
| 619 | ;; presumably hits SPC to see the *completions*, but | 619 | (completion-styles |
| 620 | ;; partial-completion will often find a " " or a "-" to match. | 620 | (remove 'partial-completion completion-styles)) |
| 621 | ;; So disable partial-completion in that situation. | ||
| 622 | (completion-styles | ||
| 623 | (or (and (equal string "") | ||
| 624 | (remove 'partial-completion completion-styles)) | ||
| 625 | completion-styles)) | ||
| 626 | tem) | 621 | tem) |
| 627 | (while (and exts (not (consp tem))) | 622 | (while (and exts (not (consp tem))) |
| 628 | (setq tem (completion-try-completion | 623 | (setq tem (completion-try-completion |