[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 971ded31c4f: Add 'declare' specs to with- and without-restricti
From: |
Gregory Heytings |
Subject: |
emacs-29 971ded31c4f: Add 'declare' specs to with- and without-restriction |
Date: |
Wed, 8 Mar 2023 05:00:51 -0500 (EST) |
branch: emacs-29
commit 971ded31c4fc5f115777fba388f9e6a5623d08bc
Author: Gregory Heytings <gregory@heytings.org>
Commit: Gregory Heytings <gregory@heytings.org>
Add 'declare' specs to with- and without-restriction
* lisp/subr.el (with-restriction):
(without-restriction): Add 'declare' specs.
---
lisp/subr.el | 2 ++
1 file changed, 2 insertions(+)
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 971ded31c4f: Add 'declare' specs to with- and without-restriction,
Gregory Heytings <=