diff options
author | João Távora <joaotavora@gmail.com> | 2019-11-10 23:01:46 +0000 |
---|---|---|
committer | João Távora <joaotavora@gmail.com> | 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 |
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 (_ n)) style string table pred point))) (completion--styles md)))) - (if requote - (funcall requote result n) - result))) + (when requote + (setcar result (funcall requote (car result) n))) + result)) (defun completion-try-completion (string table pred point &optional metadata) "Try to complete STRING using completion table TABLE. |