andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

More lax doctype check in EWW (bug#73133)

Browse source 
The regexp to match doctype tags was simplified and will match
more legacy entries; also correct binding of 'case-fold-search'.
* lisp/net/eww.el (eww--html buffer-list): Update function.
This commit is contained in:
Sebastián Monía 2024-10-24 13:09:11 -04:00 • committed by Eli Zaretskii
parent 0a6d46228d
commit 6a0c2b8729
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/net/eww.el
View file

@ -660,15 +660,14 @@ valid Content-Type header. If none of the functions can guess, return
"Return \"text/html\" if RESPONSE-BUFFER has an HTML doctype declaration.
HEADERS is unused."
;; https://html.spec.whatwg.org/multipage/syntax.html#the-doctype
(let ((case-fold-search t)
(target
"<!doctype +html *\\(>\\|system +\\(\\\"\\|'\\)+about:legacy-compat\\)"))
(with-current-buffer response-buffer
(goto-char (point-min))
;; match basic <!doctype html> and also legacy variants as
;; specified in link above
(when (re-search-forward target nil t)
"text/html"))))
(with-current-buffer response-buffer
(let ((case-fold-search t))
(save-excursion
(goto-char (point-min))
;; match basic <!doctype html> and also legacy variants as
;; specified in link above - being purposely lax about it
(when (search-forward "<!doctype html" nil t)
"text/html")))))
(defun eww--rename-buffer ()
"Rename the current EWW buffer.