scratch/a-modest-completion-redesign-proposal 8a4de19 2/2: Fix bug when completing file names

[João Távora]

branch: scratch/a-modest-completion-redesign-proposal
commit 8a4de19dfb52551a65c360a9346ede137d0fc6e8
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>

    Fix bug when completing file names
    
    * lisp/minibuffer.el (completion--nth-completion): Fix bug when
    requote function is needed.
---
 lisp/minibuffer.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 08b230d..fce705c 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.