diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2022-12-17 09:49:43 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-12-17 09:49:43 +0200 |
| commit | d65beb820ccb8d9c91445a0d3993a0e64db8f683 (patch) | |
| tree | 0966583bd3983ad105050e54b971e8577d44f3ab /lisp/subr.el | |
| parent | 1c0b90e5f7d74f5814da5c242213842be9f67a05 (diff) | |
| download | emacs-d65beb820ccb8d9c91445a0d3993a0e64db8f683.tar.gz emacs-d65beb820ccb8d9c91445a0d3993a0e64db8f683.tar.bz2 emacs-d65beb820ccb8d9c91445a0d3993a0e64db8f683.zip | |
; 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.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 7 |
1 files 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. |