From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 30 Jul 2022 13:11:43 +0000 (+0300)
Subject: Make sure to preserve point across locked narrowing
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~1886^2~638
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=76f49943c3baf1fa342889e08c5b6b86c2736437;p=emacs.git

Make sure to preserve point across locked narrowing

* src/editfns.c (Fnarrow_to_region): Save the position of point
when locking the restriction, since this function can move point.
---

diff --git a/src/editfns.c b/src/editfns.c
index d15d4dc68b9..79af27d24da 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2721,6 +2721,7 @@ the current body form.  */)
       if (BEGV != s || ZV != e)
 	current_buffer->clip_changed = 1;
 
+      record_unwind_protect (restore_point_unwind, Fpoint_marker ());
       record_unwind_protect (unwind_locked_begv, Fpoint_min ());
       record_unwind_protect (unwind_locked_zv, Fpoint_max ());