From: Gregory Heytings <gregory@heytings.org>
Date: Thu, 11 Jan 2024 23:38:22 +0000 (+0000)
Subject: Fix blunder in labeled_narrow_to_region
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=38c06d03a69a67c4b1fcab7feb50f597e49be58d;p=emacs.git

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 f3b3cfb7243..7b84f71f4a8 100644
--- 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, "",