mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Avoid slowdowns in xmltok-scan-attributes

Browse Source 
* lisp/nxml/xmltok.el (xmltok-scan-attributes): Limit the search
to 10000 characters, to avoid slowdowns due to the quadratic
complexity of the regexp.  Suggested by Stefan Monnier.
This commit is contained in:
Gregory Heytings 2023-03-18 10:49:29 +00:00
parent 647c6bf2a6
commit 0eddfa28eb
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/nxml/xmltok.el
View File

@ -734,8 +734,13 @@ and VALUE-END, otherwise a STRING giving the value."
(atts-needing-normalization nil))
(while (cond ((or (looking-at (xmltok-attribute regexp))
;; use non-greedy group
(when (looking-at (concat "[^<>\n]+?"
(xmltok-attribute regexp)))
;; Limit the search to 10000 characters, to
;; avoid slowdowns due to the quadratic
;; complexity of the regexp. See bug#61514.
(when (with-restriction
(point) (+ (point) 10000)
(looking-at (concat "[^<>\n]+?"
(xmltok-attribute regexp))))
(unless recovering
(xmltok-add-error "Malformed attribute"
(point)