`((_ ,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))
+ (perform-replace ,from ,to t replace-tests-perform-replace-regexp-flag nil))
,@body))))
(defun replace-tests--query-replace-undo (&optional comma)