* lisp/net/eww.el (eww-tag-meta): Handle single quoted URLs (Bug#25445).

Copyright-paperwork-exempt: yes
This commit is contained in:
Ian Dunn 2017-01-15 19:02:47 -05:00 committed by Noam Postavsky
parent 9b89896b7a
commit 24a5f57ac3

View file

@ -477,6 +477,7 @@ Currently this means either text/html or application/xhtml+xml."
(< eww-redirect-level 5))
(when-let (refresh (dom-attr dom 'content))
(when (or (string-match "^\\([0-9]+\\) *;.*url=\"\\([^\"]+\\)\"" refresh)
(string-match "^\\([0-9]+\\) *;.*url='\\([^']+\\)'" refresh)
(string-match "^\\([0-9]+\\) *;.*url=\\([^ ]+\\)" refresh))
(let ((timeout (match-string 1 refresh))
(url (match-string 2 refresh))