emacs-29 d65beb820c: ; Revert "; * lisp/subr.el (internal--with-narrowing): Simplify"

[Eli Zaretskii]

branch: emacs-29
commit d65beb820ccb8d9c91445a0d3993a0e64db8f683
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    ; Revert "; * lisp/subr.el (internal--with-narrowing): Simplify"
    
    This reverts commit d9add661617dfba491465943d402230699a9a4ff.
    
    Please install on the release branch only changes that fix
    incorrect behavior.  Cleanups don't belong here.
---
 lisp/subr.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/subr.el b/lisp/subr.el
index b21cce1669..e142eaa810 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3956,9 +3956,10 @@ detailed description.
 (defun internal--with-narrowing (start end body &optional tag)
   "Helper function for `with-narrowing', which see."
   (save-restriction
-    (narrow-to-region start end)
-    (when tag (narrowing-lock tag))
-    (funcall body)))
+    (progn
+      (narrow-to-region start end)
+      (if tag (narrowing-lock tag))
+      (funcall body))))
 
 (defun find-tag-default-bounds ()
   "Determine the boundaries of the default tag, based on text at point.