diff options
author | Glenn Morris <[email protected]> | 2014-06-26 20:33:00 -0400 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2014-06-26 20:33:00 -0400 |
commit | 50ccef4f27a9749ec07fe137ded8ec68bba6ca4e (patch) | |
tree | a51e173a634385facae4e93179c13777ca15b8bd /lisp | |
parent | fe9f42eb6e207c2a19df7f681beb2d9fa59553ca (diff) |
* etc/publicsuffix.txt: Update from source.
* lisp/url/url-domsuf.el: Update example comments.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/url/url-domsuf.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/url/url-domsuf.el b/lisp/url/url-domsuf.el index 6cedd3c3ca..365cf561ae 100644 --- a/lisp/url/url-domsuf.el +++ b/lisp/url/url-domsuf.el @@ -72,11 +72,11 @@ ((and (null modifier) (string= domain entry)) (setq allowedp nil)) - ;; "!pref.hokkaido.jp" + ;; "!city.yokohama.jp" ((and (eq modifier t) (string= domain entry)) (setq allowedp t)) - ;; "*.ar" + ;; "*.bd" ((and (numberp modifier) (= length modifier) (string= entry upper-domain)) @@ -85,13 +85,14 @@ ;; Tests: +;; TODO convert to a proper test/automated test. ;; (url-domsuf-cookie-allowed-p "com") => nil -;; (url-domsuf-cookie-allowed-p "foo.bar.ar") => t -;; (url-domsuf-cookie-allowed-p "bar.ar") => nil +;; (url-domsuf-cookie-allowed-p "foo.bar.bd") => t +;; (url-domsuf-cookie-allowed-p "bar.bd") => nil ;; (url-domsuf-cookie-allowed-p "co.uk") => nil ;; (url-domsuf-cookie-allowed-p "foo.bar.hokkaido.jo") => t -;; (url-domsuf-cookie-allowed-p "bar.hokkaido.jp") => nil -;; (url-domsuf-cookie-allowed-p "pref.hokkaido.jp") => t +;; (url-domsuf-cookie-allowed-p "bar.yokohama.jp") => nil +;; (url-domsuf-cookie-allowed-p "city.yokohama.jp") => t (provide 'url-domsuf) |