diff options
| author | Gregory Heytings <gregory@heytings.org> | 2023-03-08 09:55:06 +0000 |
|---|---|---|
| committer | Gregory Heytings <gregory@heytings.org> | 2023-03-08 11:00:40 +0100 |
| commit | 971ded31c4fc5f115777fba388f9e6a5623d08bc (patch) | |
| tree | b2007d629164f9fe4bdd51d9b12400d86705b973 /lisp/subr.el | |
| parent | f9b7913656f9e4728a1140b61ddb7f07009e28e6 (diff) | |
| download | emacs-971ded31c4fc5f115777fba388f9e6a5623d08bc.tar.gz | |
Add 'declare' specs to with- and without-restriction
* lisp/subr.el (with-restriction):
(without-restriction): Add 'declare' specs.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index b8bda0efd3d..c800f380261 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -3959,6 +3959,7 @@ to other portions of the buffer, use `without-restriction' with the same LABEL argument. \(fn START END [:label LABEL] BODY)" + (declare (indent 0) (debug t)) (if (eq (car rest) :label) `(internal--with-restriction ,start ,end (lambda () ,@(cddr rest)) ,(cadr rest)) @@ -3981,6 +3982,7 @@ restrictions set by `with-restriction' with the same LABEL argument are lifted. \(fn [:label LABEL] BODY)" + (declare (indent 0) (debug t)) (if (eq (car rest) :label) `(internal--without-restriction (lambda () ,@(cddr rest)) ,(cadr rest)) |