]> git.eshelyaron.com Git - emacs.git/commitdiff
Add 'declare' specs to with- and without-restriction
authorGregory Heytings <gregory@heytings.org>
Wed, 8 Mar 2023 09:55:06 +0000 (09:55 +0000)
committerGregory Heytings <gregory@heytings.org>
Wed, 8 Mar 2023 10:00:40 +0000 (11:00 +0100)
* lisp/subr.el (with-restriction):
(without-restriction): Add 'declare' specs.

lisp/subr.el

index b8bda0efd3d51096f15f834a50695c45515ef6c3..c800f38026170e8128cd4d75d76e64d9e3f8bf0c 100644 (file)
@@ -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))