diff --git a/lisp/net/eww.el b/lisp/net/eww.el index dccaf0497f..64386921c7 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -319,7 +319,8 @@ eww--dwim-expand-url (t ;; Anything that starts with something that vaguely looks ;; like a protocol designator is interpreted as a full URL. - (if (or (string-match "\\`[A-Za-z]+:" url) + (unless (string-match-p "\\`about:" url) + (if (or (string-match-p "\\`[A-Za-z]+:" url) ;; Also try to match "naked" URLs like ;; en.wikipedia.org/wiki/Free software (string-match "\\`[A-Za-z_]+\\.[A-Za-z._]+/" url) @@ -335,7 +336,7 @@ eww--dwim-expand-url (setq url (concat url "/")))) (setq url (concat eww-search-prefix (mapconcat - #'url-hexify-string (split-string url) "+")))))) + #'url-hexify-string (split-string url) "+"))))))) url) (defun eww--preprocess-html (start end) diff --git a/lisp/url/url-about.el b/lisp/url/url-about.el index e9d9d6346e..ee79ee1aab 100644 --- a/lisp/url/url-about.el +++ b/lisp/url/url-about.el @@ -91,7 +95,7 @@ url-about (if (fboundp func) (progn (set-buffer (generate-new-buffer " *about-data*")) - (insert "Content-type: text/plain\n\n") + (insert "Content-type: text/html\n\n") (funcall func url) (current-buffer)) (error "URL does not know about `%s'" item))))