procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* net/eww.el (eww): Handle URLs without host part.

Browse source
This commit is contained in:
Andreas Schwab 2017-12-23 21:38:36 +01:00
parent de89c0b641
commit 99054fbef9
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/net/eww.el
View file

@ -261,9 +261,10 @@ word(s) will be searched for via `eww-search-prefix'."
;; IDNA characters. If not, transform to punycode to indicate that ;; IDNA characters. If not, transform to punycode to indicate that
;; there may be funny business going on. ;; there may be funny business going on.
(let ((parsed (url-generic-parse-url url))) (let ((parsed (url-generic-parse-url url)))
(unless (puny-highly-restrictive-domain-p (url-host parsed)) (when (url-host parsed)
(setf (url-host parsed) (puny-encode-domain (url-host parsed))) (unless (puny-highly-restrictive-domain-p (url-host parsed))
(setq url (url-recreate-url parsed)))) (setf (url-host parsed) (puny-encode-domain (url-host parsed)))
(setq url (url-recreate-url parsed)))))
(plist-put eww-data :url url) (plist-put eww-data :url url)
(plist-put eww-data :title "") (plist-put eww-data :title "")
(eww-update-header-line-format) (eww-update-header-line-format)