Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
(Bug#60130)
This commit is contained in:
Philip Kaludercic 2022-12-17 00:11:46 +01:00
parent 3b226f769e
commit 83d9fa6a28
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/subr.el
View file

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