diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-05-31 19:20:26 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-05-31 19:20:26 +0000 |
commit | e6dfa3c470ac876044f4de561a7c9ce2df8d6dce (patch) | |
tree | 0e414cfe3ab531a2acdbd5d9b5a1b930613cd035 /src | |
parent | ce8d0eaa98555d46865abd0f67f51e68bb738bb6 (diff) | |
download | emacs-e6dfa3c470ac876044f4de561a7c9ce2df8d6dce.tar.gz |
(Freplace_match): Fix previous change.
Diffstat (limited to 'src')
-rw-r--r-- | src/search.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/search.c b/src/search.c index 720012dfc5a..5e86e1cab54 100644 --- a/src/search.c +++ b/src/search.c @@ -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; } |