diff options
| author | Philip Kaludercic | 2022-12-17 00:11:46 +0100 |
|---|---|---|
| committer | Philip Kaludercic | 2022-12-17 12:18:56 +0100 |
| commit | 83d9fa6a2862e3d1da49414db150448e7ee5e899 (patch) | |
| tree | a2e70228a0403be9edb1e4ae9dad4ebdbcdd7b47 | |
| parent | 3b226f769e174a2af9ce5e298e4d79cb4bb55f25 (diff) | |
| download | emacs-83d9fa6a2862e3d1da49414db150448e7ee5e899.tar.gz emacs-83d9fa6a2862e3d1da49414db150448e7ee5e899.zip | |
; * lisp/subr.el (internal--with-narrowing): Simplify
(Bug#60130)
| -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. | |||
| 3956 | (defun internal--with-narrowing (start end body &optional tag) | 3956 | (defun internal--with-narrowing (start end body &optional tag) |
| 3957 | "Helper function for `with-narrowing', which see." | 3957 | "Helper function for `with-narrowing', which see." |
| 3958 | (save-restriction | 3958 | (save-restriction |
| 3959 | (progn | 3959 | (narrow-to-region start end) |
| 3960 | (narrow-to-region start end) | 3960 | (when tag (narrowing-lock tag)) |
| 3961 | (if tag (narrowing-lock tag)) | 3961 | (funcall body))) |
| 3962 | (funcall body)))) | ||
| 3963 | 3962 | ||
| 3964 | (defun find-tag-default-bounds () | 3963 | (defun find-tag-default-bounds () |
| 3965 | "Determine the boundaries of the default tag, based on text at point. | 3964 | "Determine the boundaries of the default tag, based on text at point. |