emacs-29 5bb5590dec9: Fix blunder in labeled_narrow_to_region

[Gregory Heytings]

branch: emacs-29
commit 5bb5590dec95e813ed120b3f09734451b4ebb18f
Author: Gregory Heytings <gregory@heytings.org>
Commit: Gregory Heytings <gregory@heytings.org>

    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.
---
 src/editfns.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/editfns.c b/src/editfns.c
index 063dfc6d131..6ddee0840c2 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2870,9 +2870,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, "",