From d65beb820ccb8d9c91445a0d3993a0e64db8f683 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 17 Dec 2022 09:49:43 +0200 Subject: [PATCH] ; 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 b21cce16696..e142eaa8104 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. -- 2.39.5