emacs-diffs
[Top][All Lists]
Advanced

[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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]