[Emacs-diffs] trunk r113158: * net/eww.el (eww): Add a trailing slash to domain names.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 113158
revision-id: address@hidden
parent: address@hidden
author: Ivan Kanis <address@hidden>
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Mon 2013-06-24 19:38:51 +0200
message:
  * net/eww.el (eww): Add a trailing slash to domain names.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-24 16:06:47 +0000
+++ b/lisp/ChangeLog    2013-06-24 17:38:51 +0000
@@ -1,3 +1,7 @@
+2013-06-24  Ivan Kanis  <address@hidden>
+
+       * net/eww.el (eww): Add a trailing slash to domain names.
+
 2013-06-24  Juanma Barranquero  <address@hidden>
 
        * faces.el (face-spec-recalc): Revert part of revno:113147 (bug#14705).

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2013-06-24 13:57:35 +0000
+++ b/lisp/net/eww.el   2013-06-24 17:38:51 +0000
@@ -102,8 +102,12 @@
   (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)))))