[elpa] externals/consult cc24d57e4c: completion--replace mutates the string :/

[ELPA Syncer]

branch: externals/consult
commit cc24d57e4c9f61d7238c99b577ab8161ea70244e
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    completion--replace mutates the string :/
---
 consult.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index 1f710fcfb7..83ce30a2ee 100644
--- a/consult.el
+++ b/consult.el
@@ -2374,7 +2374,8 @@ These configuration options are supported:
                                           predicate require-match 
initial)))))))))
         (if completion
             (progn
-              (completion--replace start end completion)
+              ;; completion--replace removes properties!
+              (completion--replace start end (setq completion (concat 
completion)))
               (when-let (exit (plist-get completion-extra-properties 
:exit-function))
                 (funcall exit completion
                          ;; If completion is finished and cannot be further 
completed,