diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2022-12-17 00:11:46 +0100 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2022-12-17 00:41:14 +0100 |
| commit | d9add661617dfba491465943d402230699a9a4ff (patch) | |
| tree | 22cff6092d041792e2dd8bda30ca0e524f9f0c3e /lisp/subr.el | |
| parent | 67bc96c9d94717353d4e0cc283e5235f7c0de330 (diff) | |
| download | emacs-d9add661617dfba491465943d402230699a9a4ff.tar.gz emacs-d9add661617dfba491465943d402230699a9a4ff.tar.bz2 emacs-d9add661617dfba491465943d402230699a9a4ff.zip | |
; * lisp/subr.el (internal--with-narrowing): Simplify
(Bug#60130)
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index e142eaa8104..b21cce16696 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -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. |