[Emacs-diffs] trunk r118261: * net/eww.el (eww): Recognize colon-delimited IPv6 addresses..

[Teodor Zlatanov]

------------------------------------------------------------
revno: 118261
revision-id: address@hidden
parent: address@hidden
author: Ivan Shmakov <address@hidden>
committer: Ted Zlatanov <address@hidden>
branch nick: quickfixes
timestamp: Sun 2014-11-02 16:40:30 -0500
message:
  * net/eww.el (eww): Recognize colon-delimited IPv6 addresses..
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-11-02 21:34:40 +0000
+++ b/lisp/ChangeLog    2014-11-02 21:40:30 +0000
@@ -1,3 +1,8 @@
+2014-11-02  Ivan Shmakov <address@hidden>
+
+       * net/eww.el (eww): Recognize colon-delimited IPv6 addresses.
+       (Bug#18603).
+
 2014-11-02  Brian McKenna <address@hidden>  (tiny change)
 
        * net/eww.el (eww-submit): Encode empty form values as "".

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2014-11-02 21:34:40 +0000
+++ b/lisp/net/eww.el   2014-11-02 21:40:30 +0000
@@ -165,7 +165,7 @@
         (t
          (if (and (= (length (split-string url)) 1)
                  (or (and (not (string-match-p "\\`[\"\'].*[\"\']\\'" url))
-                          (> (length (split-string url "\\.")) 1))
+                          (> (length (split-string url "[.:]")) 1))
                      (string-match eww-local-regex url)))
              (progn
                (unless (string-match-p "\\`[a-zA-Z][-a-zA-Z0-9+.]*://" url)