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

diff --git a/lisp/nxml/xmltok.el b/lisp/nxml/xmltok.el
index fb852e5ea5e4ca31fcbb5400124a80fc3495c183..6f9df554da0da940b9877af25a0dfdea49d91cfe 100644 (file)
--- 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