andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make puny-encode-string normalize first

Browse source 
* lisp/net/puny.el (puny-encode-string): Normalize before encoding
(bug#51954).
This commit is contained in:
Lars Ingebrigtsen 2021-11-19 07:42:55 +01:00
parent 19e78601a0
commit 023dc2ac8f
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/net/puny.el
View file

@ -43,6 +43,7 @@ For instance, \"fśf.org\" => \"xn--ff-2sa.org\"."
"Encode STRING according to the IDNA/punycode algorithm.
This is used to encode non-ASCII domain names.
For instance, \"bücher\" => \"xn--bcher-kva\"."
(setq string (downcase (string-glyph-compose string)))
(let ((ascii (seq-filter (lambda (char)
(< char 128))
string)))

7
test/lisp/net/puny-tests.el
View file

@ -61,4 +61,11 @@
;; Only allowed in unrestricted.
(should-not (puny-highly-restrictive-domain-p "I♥NY.org")))
(ert-deftest puny-normalize ()
(should (equal (puny-encode-string (string-glyph-compose "Bä.com"))
"xn--b.com-gra"))
(should (equal (puny-encode-string "Bä.com")
"xn--b.com-gra"))
(should (equal (puny-encode-string "Bä.com") "xn--b.com-gra")))
;;; puny-tests.el ends here