From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 7 Apr 2025 15:54:06 +0000 (-0400)
Subject: (Freplace_region_contents): Fix point preservation (bug#77607)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=337ff0f910ccabb5739aa864d5982c592b74fff3;p=emacs.git

(Freplace_region_contents): Fix point preservation (bug#77607)

* src/editfns.c (Freplace_region_contents): Save excursion around
temporary restriction (bug#77607) and remove
`record_unwind_protect_excursion` made redundant by commit 40d8650d5177.

(cherry picked from commit ae5c608eca636ad1c5c76294d81f16a16d2ec3b5)
---

diff --git a/src/editfns.c b/src/editfns.c
index 9590b49dc25..669d3cdb140 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1968,6 +1968,7 @@ a buffer or a string.  But this is deprecated.  */)
   if (FUNCTIONP (source))
     {
       specpdl_ref count = SPECPDL_INDEX ();
+      record_unwind_protect_excursion ();
       record_unwind_protect (save_restriction_restore,
 			     save_restriction_save ());
       Fnarrow_to_region (beg, end);
@@ -2119,7 +2120,6 @@ a buffer or a string.  But this is deprecated.  */)
 
   Fundo_boundary ();
   bool modification_hooks_inhibited = false;
-  record_unwind_protect_excursion ();
 
   /* We are going to make a lot of small modifications, and having the
      modification hooks called for each of them will slow us down.