diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2023-06-12 22:43:44 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2023-06-12 22:43:44 -0400 |
| commit | 4da479920e66ba245fd374da661bf7a27af718b9 (patch) | |
| tree | 53324a38de47622e77025bb96f2599af8bf9a8da | |
| parent | 36aa9bd818334bba56b0fdd6e10d7dc05ba4bbd4 (diff) | |
| download | emacs-4da479920e66ba245fd374da661bf7a27af718b9.tar.gz | |
* lisp/subr.el (with-restriction): Tweak indent rule
| -rw-r--r-- | lisp/nxml/xmltok.el | 2 | ||||
| -rw-r--r-- | 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)) |