aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/net/eww.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index ed19bea025e..e0964932d7d 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -280,7 +280,7 @@ word(s) will be searched for via `eww-search-prefix'."
280 ;; IDNA characters. If not, transform to punycode to indicate that 280 ;; IDNA characters. If not, transform to punycode to indicate that
281 ;; there may be funny business going on. 281 ;; there may be funny business going on.
282 (let ((parsed (url-generic-parse-url url))) 282 (let ((parsed (url-generic-parse-url url)))
283 (unless (puny-highly-restrictive-p (url-host parsed)) 283 (unless (puny-highly-restrictive-domain-p (url-host parsed))
284 (setf (url-host parsed) (puny-encode-domain (url-host parsed))) 284 (setf (url-host parsed) (puny-encode-domain (url-host parsed)))
285 (setq url (url-recreate-url parsed)))) 285 (setq url (url-recreate-url parsed))))
286 (plist-put eww-data :url url) 286 (plist-put eww-data :url url)