Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
50ccef4f
Commit
50ccef4f
authored
Jun 26, 2014
by
Glenn Morris
Browse files
* etc/publicsuffix.txt: Update from source.
* lisp/url/url-domsuf.el: Update example comments.
parent
fe9f42eb
Changes
3
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
4002 additions
and
657 deletions
+4002
-657
etc/ChangeLog
etc/ChangeLog
+4
-0
etc/publicsuffix.txt
etc/publicsuffix.txt
+3991
-651
lisp/url/url-domsuf.el
lisp/url/url-domsuf.el
+7
-6
No files found.
etc/ChangeLog
View file @
50ccef4f
2014-06-27 Glenn Morris <rgm@gnu.org>
* publicsuffix.txt: Update from source.
2014-06-08 Leo Liu <sdl.web@gmail.com>
* themes/deeper-blue-theme.el: Use another fix. (Bug#17695)
...
...
etc/publicsuffix.txt
View file @
50ccef4f
This diff is collapsed.
Click to expand it.
lisp/url/url-domsuf.el
View file @
50ccef4f
...
...
@@ -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.
h
ok
kaido
.jp") => nil
;; (url-domsuf-cookie-allowed-p "
pref.hokkaido
.jp") => t
;; (url-domsuf-cookie-allowed-p "bar.
y
ok
ohama
.jp") => nil
;; (url-domsuf-cookie-allowed-p "
city.yokohama
.jp") => t
(
provide
'url-domsuf
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment