[Emacs-diffs] master 38e420a: * test/lisp/replace-tests.el (replace-tests-with-undo): Override

[Juri Linkov]

branch: master
commit 38e420af451c61dd0e77c7d73adf6fd1f6a021a9
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    * test/lisp/replace-tests.el (replace-tests-with-undo): Override
    
    replace-highlight to emulate clobbering match-data (bug#36328).
---
 test/lisp/replace-tests.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/test/lisp/replace-tests.el b/test/lisp/replace-tests.el
index ed948ad..c908d4e 100644
--- a/test/lisp/replace-tests.el
+++ b/test/lisp/replace-tests.el
@@ -441,7 +441,7 @@ Return the last evalled form in BODY."
          ;; If `replace-tests-bind-read-string' is non-nil, then
          ;; bind `read-string' as well.
          (cl-letf (((symbol-function 'read-event)
-                    (lambda (&rest args)
+                    (lambda (&rest _args)
                       (cl-incf ,count)
                       (pcase ,count ; Build the clauses from CHAR-NUMS
                         ,@(append
@@ -456,8 +456,13 @@ Return the last evalled form in BODY."
                            `((_ ,def-chr))))))
                    ((symbol-function 'read-string)
                     (if replace-tests-bind-read-string
-                        (lambda (&rest args) replace-tests-bind-read-string)
-                      (symbol-function 'read-string))))
+                        (lambda (&rest _args) replace-tests-bind-read-string)
+                      (symbol-function 'read-string)))
+                   ;; Emulate replace-highlight clobbering match-data via
+                   ;; isearch-lazy-highlight-new-loop and sit-for (bug#36328)
+                   ((symbol-function 'replace-highlight)
+                    (lambda (&rest _args)
+                      (string-match "[A-Z ]" "ForestGreen"))))
            (perform-replace ,from ,to t t nil))
          ,@body))))