diff options
| author | Glenn Morris <rgm@gnu.org> | 2014-06-26 20:33:00 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2014-06-26 20:33:00 -0400 |
| commit | 50ccef4f27a9749ec07fe137ded8ec68bba6ca4e (patch) | |
| tree | a51e173a634385facae4e93179c13777ca15b8bd /lisp/url | |
| parent | fe9f42eb6e207c2a19df7f681beb2d9fa59553ca (diff) | |
| download | emacs-50ccef4f27a9749ec07fe137ded8ec68bba6ca4e.tar.gz | |
* etc/publicsuffix.txt: Update from source.
* lisp/url/url-domsuf.el: Update example comments.
Diffstat (limited to 'lisp/url')
| -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 6cedd3c3ca7..365cf561ae2 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) |