emacs-30 846b79b6d02 2/2: Fix 'wdired-test-unfinished-edit-01'

[Eli Zaretskii]

branch: emacs-30
commit 846b79b6d02faf188f0131c57a49a60bb8f71d64
Author: Peter Oliver <git@mavit.org.uk>
Commit: Eli Zaretskii <eliz@gnu.org>

    Fix 'wdired-test-unfinished-edit-01'
    
    * test/lisp/wdired-tests.el (wdired-test-unfinished-edit-01):
    Don't modify the random directory name if, by chance, it happens
    to contain the substring "foo" anywhere but immediately after the
    slash.  (Bug#72073)
---
 test/lisp/wdired-tests.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/lisp/wdired-tests.el b/test/lisp/wdired-tests.el
index f7bff743058..f6d2194e998 100644
--- a/test/lisp/wdired-tests.el
+++ b/test/lisp/wdired-tests.el
@@ -114,7 +114,7 @@ wdired-mode."
     (setq test-dir (file-truename test-dir))
     (let* ((test-file (concat (file-name-as-directory test-dir) "foo.c"))
            (replace "bar")
-           (new-file (string-replace "foo" replace test-file)))
+           (new-file (string-replace "/foo" (concat "/" replace) test-file)))
       (write-region "" nil test-file nil 'silent)
       (let ((buf (find-file-noselect test-dir)))
         (unwind-protect