mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Add 'without-narrowing' macro

Browse Source 
* lisp/subr.el (without-narrowing): New macro, companion (and
almost identical) to 'with-narrowing'.
This commit is contained in:
Gregory Heytings 2023-02-09 01:09:10 +00:00
parent 97314447e6
commit d8438e2bb4
1 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/subr.el
View File

@ -3952,18 +3952,37 @@ and END limits, unless the restrictions are unlocked by calling
`narrowing-unlock' with TAG. See `narrowing-lock' for a more
detailed description.
\(fn START END [:locked TAG] BODY)"
(if (eq (car rest) :locked)
\(fn START END [:label LABEL] BODY)"
(if (eq (car rest) :label)
`(internal--with-narrowing ,start ,end (lambda () ,@(cddr rest))
,(cadr rest))
`(internal--with-narrowing ,start ,end (lambda () ,@rest))))
(defun internal--with-narrowing (start end body &optional tag)
(defun internal--with-narrowing (start end body &optional label)
"Helper function for `with-narrowing', which see."
(save-restriction
(progn
(narrow-to-region start end)
(if tag (internal--lock-narrowing tag))
(if label (internal--lock-narrowing label))
(funcall body))))
(defmacro without-narrowing (&rest rest)
"Execute BODY without restrictions.
The current restrictions, if any, are restored upon return.
\(fn [:label LABEL] BODY)"
(if (eq (car rest) :label)
`(internal--without-narrowing (lambda () ,@(cddr rest))
,(cadr rest))
`(internal--without-narrowing (lambda () ,@rest))))
(defun internal--without-narrowing (body &optional label)
"Helper function for `without-narrowing', which see."
(save-restriction
(progn
(if label (internal--unlock-narrowing label))
(widen)
(funcall body))))
(defun find-tag-default-bounds ()