* net/eww.el (eww): Add a trailing slash to domain names.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c55666a0cad1ee6a768b894451a0aba9d55480da..a1f6ceee6a54e601fd616e6609e76470ac28b9cb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-06-24  Ivan Kanis  <ivan@kanis.fr>
+
+       * net/eww.el (eww): Add a trailing slash to domain names.
+
 2013-06-24  Juanma Barranquero  <lekktu@gmail.com>
 
        * faces.el (face-spec-recalc): Revert part of 2013-06-23T20:29:18Z!lekktu@gmail.com (bug#14705).

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 535992513a26ded3f5d7f0eb72e1f78eba512350..7b37eda185e79baf4b24b2a90341663f64a400bc 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -102,8 +102,12 @@ word(s) will be searched for via `eww-search-prefix'."
   (interactive "sEnter URL or keywords: ")
   (if (and (= (length (split-string url)) 1)
            (> (length (split-string url "\\.")) 1))
-      (unless (string-match-p "\\`[a-zA-Z][-a-zA-Z0-9+.]*://" url)
-        (setq url (concat "http://" url)))
+      (progn
+        (unless (string-match-p "\\`[a-zA-Z][-a-zA-Z0-9+.]*://" url)
+          (setq url (concat "http://" url)))
+        ;; some site don't redirect final /
+        (when (string= (url-filename (url-generic-parse-url url)) "")
+          (setq url (concat url "/"))))
     (unless (string-match-p "^file:" url)
       (setq url (concat eww-search-prefix
                         (replace-regexp-in-string " " "+" url)))))