From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 13 Jun 2023 02:43:44 +0000 (-0400)
Subject: * lisp/subr.el (with-restriction): Tweak indent rule
X-Git-Tag: emacs-29.0.92~29
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4da479920e66ba245fd374da661bf7a27af718b9;p=emacs.git

* lisp/subr.el (with-restriction): Tweak indent rule
---

diff --git a/lisp/nxml/xmltok.el b/lisp/nxml/xmltok.el
index 6f9df554da0..78fa91b5cdc 100644
--- a/lisp/nxml/xmltok.el
+++ b/lisp/nxml/xmltok.el
@@ -738,7 +738,7 @@ and VALUE-END, otherwise a STRING giving the value."
 		      ;; avoid slowdowns due to the quadratic
 		      ;; complexity of the regexp.  See bug#61514.
 		      (when (with-restriction
-			      (point) (min (+ (point) 10000) (point-max))
+			        (point) (min (+ (point) 10000) (point-max))
 			      (looking-at (concat "[^<>\n]+?"
 						  (xmltok-attribute regexp))))
 			(unless recovering
diff --git a/lisp/subr.el b/lisp/subr.el
index 950902039b1..85adef5b689 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3971,7 +3971,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))
+  (declare (indent 2) (debug t))
   (if (eq (car rest) :label)
       `(internal--with-restriction ,start ,end (lambda () ,@(cddr rest))
                                  ,(cadr rest))