From: Gregory Heytings <gregory@heytings.org>
Date: Sun, 21 Aug 2022 19:45:42 +0000 (+0000)
Subject: ; * src/editfns.c (Fnarrow_to_region): Two forgotten cases.
X-Git-Tag: emacs-29.0.90~1447^2~17
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=890d6c15a752b6b12dc639a43277466852aa8470;p=emacs.git

; * src/editfns.c (Fnarrow_to_region): Two forgotten cases.
---

diff --git a/src/editfns.c b/src/editfns.c
index c6727832928..58ebe5540f5 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2751,6 +2751,8 @@ limit of the locked restriction is used instead of the argument.  */)
       ptrdiff_t begv = XFIXNUM (Fcar (Fcdr (Fcar (Vnarrowing_locks))));
       ptrdiff_t zv = XFIXNUM (Fcdr (Fcdr (Fcar (Vnarrowing_locks))));
       if (s < begv) s = begv;
+      if (s > zv) s = zv;
+      if (e < begv) e = begv;
       if (e > zv) e = zv;
     }