Fix blunder in labeled_narrow_to_region

* src/editfns.c (labeled_narrow_to_region): Record point before,
instead of after, calling narrow-to-region; otherwise point may
already have been changed.  Fixes bug#66764.

(cherry picked from commit 5bb5590dec95e813ed120b3f09734451b4ebb18f)

diff --git a/src/editfns.c b/src/editfns.c
index f3b3cfb72432a2da88c77c02371b365a6464a562..7b84f71f4a80e7fdb2bc6e8550d9d7aa6b874ca8 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2877,9 +2877,9 @@ void
 labeled_narrow_to_region (Lisp_Object begv, Lisp_Object zv,
                          Lisp_Object label)
 {
-  Finternal__labeled_narrow_to_region (begv, zv, label);
   record_unwind_protect (restore_point_unwind, Fpoint_marker ());
   record_unwind_protect (unwind_labeled_narrow_to_region, label);
+  Finternal__labeled_narrow_to_region (begv, zv, label);
 }
 
 DEFUN ("widen", Fwiden, Swiden, 0, 0, "",