[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 4da479920e6: * lisp/subr.el (with-restriction): Tweak indent ru
From: |
Stefan Monnier |
Subject: |
emacs-29 4da479920e6: * lisp/subr.el (with-restriction): Tweak indent rule |
Date: |
Mon, 12 Jun 2023 22:43:54 -0400 (EDT) |
branch: emacs-29
commit 4da479920e66ba245fd374da661bf7a27af718b9
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/subr.el (with-restriction): Tweak indent rule
---
lisp/nxml/xmltok.el | 2 +-
lisp/subr.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 4da479920e6: * lisp/subr.el (with-restriction): Tweak indent rule,
Stefan Monnier <=