diff options
| -rw-r--r-- | lisp/net/eww.el | 2 |
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) |