mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00
Code Issues Projects Releases Wiki Activity

(Freplace_match): Fix previous change.

Browse source
This commit is contained in:
Richard M. Stallman 1997-05-31 19:20:26 +00:00
parent ae03af3444
commit 3e18eecf35
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/search.c
View file

@ -1422,7 +1422,7 @@ since only regular expressions have distinguished subexpressions.")
register int c, prevc;
int inslen;
int sub;
int opoint;
int opoint, newpoint;
CHECK_STRING (newtext, 0);
@ -1675,6 +1675,8 @@ since only regular expressions have distinguished subexpressions.")
else if (case_action == cap_initial)
Fupcase_initials_region (make_number (PT - inslen), make_number (PT));
newpoint = PT;
/* Put point back where it was in the text. */
if (opoint < 0)
temp_set_point (opoint + ZV, current_buffer);
@ -1682,7 +1684,7 @@ since only regular expressions have distinguished subexpressions.")
temp_set_point (opoint, current_buffer);
/* Now move point "officially" to the start of the inserted replacement. */
move_if_not_intangible (search_regs.start[sub]);
move_if_not_intangible (newpoint);
return Qnil;
}