From: Gregory Heytings <gregory@heytings.org>
Date: Sat, 18 Mar 2023 15:04:26 +0000 (+0000)
Subject: ; * lisp/nxml/xmltok.el (xmltok-scan-attributes): Fix last change
X-Git-Tag: emacs-29.0.90~136^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=11592bcfda6cf85d797d333072453c98994790e1;p=emacs.git

; * lisp/nxml/xmltok.el (xmltok-scan-attributes): Fix last change
---

diff --git a/lisp/nxml/xmltok.el b/lisp/nxml/xmltok.el
index fb852e5ea5e..6f9df554da0 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) (+ (point) 10000)
+			      (point) (min (+ (point) 10000) (point-max))
 			      (looking-at (concat "[^<>\n]+?"
 						  (xmltok-attribute regexp))))
 			(unless recovering