diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/subr.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 3e71f6f4edb..b83805e8986 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -3956,12 +3956,10 @@ detailed description. (defun with-narrowing-1 (start end tag body) "Helper function for `with-narrowing', which see." (save-restriction - (unwind-protect - (progn - (narrow-to-region start end) - (narrowing-lock tag) - (funcall body)) - (narrowing-unlock tag)))) + (progn + (narrow-to-region start end) + (narrowing-lock tag) + (funcall body)))) (defun with-narrowing-2 (start end body) "Helper function for `with-narrowing', which see." |