[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#25445: Bug (Trunk): Redirect fails in Duckduckgo
From: |
npostavs |
Subject: |
bug#25445: Bug (Trunk): Redirect fails in Duckduckgo |
Date: |
Sun, 15 Jan 2017 19:35:51 -0500 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/25.1 (gnu/linux) |
tags 25445 patch
quit
Right, so I guess this should actually go to emacs-25 since eww-tag-meta
seems to be a new function in 25.1.
>From e1751dfb7ef5efbe1d79789f3d7b3a625dd8faab Mon Sep 17 00:00:00 2001
From: Ian Dunn <dunni@gnu.org>
Date: Sun, 15 Jan 2017 19:02:47 -0500
Subject: [PATCH v1] * lisp/net/eww.el (eww-tag-meta): Handle single quoted
URLs (Bug#25445).
Copyright-paperwork-exempt: yes
---
lisp/net/eww.el | 1 +
1 file changed, 1 insertion(+)
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index d421807..90e7881 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -501,6 +501,7 @@ eww-tag-meta
(< 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))
--
2.9.3