From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 1 May 2022 17:04:44 +0000 (-0400)
Subject: * lisp/minibuffer.el (completion--replace): Fix bug#55205
X-Git-Tag: emacs-29.0.90~1931^2~152
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=788694d026b401715330576633a98542623978ff;p=emacs.git

* lisp/minibuffer.el (completion--replace): Fix bug#55205
---

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index ef71b4e6be6..fb473cf71b0 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1140,6 +1140,7 @@ Moves point to the end of the new text."
   ;; The properties on `newtext' include things like the
   ;; `completions-first-difference' face, which we don't want to
   ;; include upon insertion.
+  (setq newtext (copy-sequence newtext)) ;Don't modify the arg by side-effect.
   (if minibuffer-allow-text-properties
       ;; If we're preserving properties, then just remove the faces
       ;; and other properties added by the completion machinery.