From 76f96157a2ca095086237306399730c675680a01 Mon Sep 17 00:00:00 2001 From: Peter Oliver Date: Fri, 12 Jul 2024 10:52:23 +0100 Subject: [PATCH] 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) (cherry picked from commit 846b79b6d02faf188f0131c57a49a60bb8f71d64) --- 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 -- 2.39.2