(comint-substitute-in-file-name): Call replace-match

with second and third arg t.

diff --git a/lisp/comint.el b/lisp/comint.el
index eac6095bdb3d675037d0db1bb9172db2a633f4eb..d4d3ceda5d663d83bd39b40a546991a133ec297d 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2086,7 +2086,7 @@ interpreter (e.g., the percent notation of cmd.exe on NT)."
              (setq env-var-val (if (getenv env-var-name)
                                    (getenv env-var-name)
                                  ""))
-             (setq name (replace-match env-var-val nil nil name))))))
+             (setq name (replace-match env-var-val t t name))))))
     name))
 
 (defun comint-match-partial-filename ()