From: Philip Kaludercic <philipk@posteo.net>
Date: Fri, 16 Dec 2022 23:11:46 +0000 (+0100)
Subject: ; * lisp/subr.el (internal--with-narrowing): Simplify
X-Git-Tag: emacs-29.0.90~1110
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9add661617dfba491465943d402230699a9a4ff;p=emacs.git

; * lisp/subr.el (internal--with-narrowing): Simplify

(Bug#60130)
---

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