diff options
| author | João Távora | 2019-11-10 23:01:46 +0000 |
|---|---|---|
| committer | João Távora | 2019-11-10 23:01:46 +0000 |
| commit | 8a4de19dfb52551a65c360a9346ede137d0fc6e8 (patch) | |
| tree | e29a3958e4d2e397eb251035f1af1d949871ae46 | |
| parent | 68bce2475a6bbd9f48776f055bc3761efebdfb25 (diff) | |
| download | emacs-scratch/a-modest-completion-redesign-proposal.tar.gz emacs-scratch/a-modest-completion-redesign-proposal.zip | |
Fix bug when completing file namesscratch/a-modest-completion-redesign-proposal
* lisp/minibuffer.el (completion--nth-completion): Fix bug when
requote function is needed.
| -rw-r--r-- | lisp/minibuffer.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 08b230d5752..fce705cd014 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el | |||
| @@ -958,9 +958,9 @@ N can be 1 for to mean \"completion-try-completion\" or 2 to mean | |||
| 958 | (_ n)) | 958 | (_ n)) |
| 959 | style string table pred point))) | 959 | style string table pred point))) |
| 960 | (completion--styles md)))) | 960 | (completion--styles md)))) |
| 961 | (if requote | 961 | (when requote |
| 962 | (funcall requote result n) | 962 | (setcar result (funcall requote (car result) n))) |
| 963 | result))) | 963 | result)) |
| 964 | 964 | ||
| 965 | (defun completion-try-completion (string table pred point &optional metadata) | 965 | (defun completion-try-completion (string table pred point &optional metadata) |
| 966 | "Try to complete STRING using completion table TABLE. | 966 | "Try to complete STRING using completion table TABLE. |