>From 1d2e59dfc56e10b4576f7ae7524abceb5e5b74c6 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Sat, 17 Dec 2022 00:11:46 +0100 Subject: [PATCH] ; * lisp/subr.el (internal--with-narrowing): Simplify --- lisp/subr.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index e142eaa810..b21cce1669 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -3956,10 +3956,9 @@ with-narrowing (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. -- 2.35.1