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)
This commit is contained in:
parent
bc154cba13
commit
846b79b6d0
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue