procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
This reverts commit d9add66161.

Please install on the release branch only changes that fix
incorrect behavior.  Cleanups don't belong here.
This commit is contained in:
Eli Zaretskii 2022-12-17 09:49:43 +02:00
parent 1c0b90e5f7
commit d65beb820c
1 changed files with 4 additions and 3 deletions

7
lisp/subr.el
View file

@ -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.