procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* test/lisp/replace-tests.el (replace-tests-with-undo): Override

Browse source 
replace-highlight to emulate clobbering match-data (bug#36328).
This commit is contained in:
Juri Linkov 2019-07-12 22:00:56 +03:00
parent 391e8e530a
commit 38e420af45
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
test/lisp/replace-tests.el
View file

@ -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))))