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

(perform-replace): Before recursive edit,

Browse source 
get the match data as markers, and set real-match-data.
This commit is contained in:
Richard M. Stallman 1998-03-26 06:31:26 +00:00
parent d155ff1892
commit a9c4c78a68
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/replace.el
View file

@ -846,9 +846,11 @@ which will run faster and probably do exactly what you want."
((eq def 'recenter)
(recenter nil))
((eq def 'edit)
(set-match-data
(prog1 (match-data)
(save-excursion (recursive-edit))))
(goto-char (match-beginning 0))
(funcall search-function search-string limit t)
(setq real-match-data (match-data))
(save-excursion (recursive-edit))
(set-match-data real-match-data)
;; Before we make the replacement,
;; decide whether the search string
;; can match again just after this match.