diff options
| author | Mattias Engdegård | 2020-04-09 11:29:51 +0200 |
|---|---|---|
| committer | Mattias Engdegård | 2020-04-09 12:06:39 +0200 |
| commit | 95dd8de1df19a8529efb66257ac78789be62ca37 (patch) | |
| tree | bfe2bb196b879ec90f85744d9cceee971df75c22 /test | |
| parent | 786887cf439450ce7d8d6fbe624e8c434e50d469 (diff) | |
| download | emacs-95dd8de1df19a8529efb66257ac78789be62ca37.tar.gz emacs-95dd8de1df19a8529efb66257ac78789be62ca37.zip | |
chinese-hz is not ASCII compatible (bug#40407)
* lisp/language/chinese.el: Disable :ascii-compatible-p for chinese-hz.
* test/lisp/international/mule-tests.el (mule-hz): New test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/international/mule-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/lisp/international/mule-tests.el b/test/lisp/international/mule-tests.el index bb96943888f..5f8e653d7c2 100644 --- a/test/lisp/international/mule-tests.el +++ b/test/lisp/international/mule-tests.el | |||
| @@ -65,6 +65,9 @@ | |||
| 65 | (should (equal (encode-coding-string "あ" 'utf-7-imap) "&MEI-")) | 65 | (should (equal (encode-coding-string "あ" 'utf-7-imap) "&MEI-")) |
| 66 | (should (equal (decode-coding-string "&MEI-" 'utf-7-imap) "あ"))) | 66 | (should (equal (decode-coding-string "&MEI-" 'utf-7-imap) "あ"))) |
| 67 | 67 | ||
| 68 | (ert-deftest mule-hz () | ||
| 69 | ;; The chinese-hz encoding is not ASCII compatible. | ||
| 70 | (should-not (coding-system-get 'chinese-hz :ascii-compatible-p))) | ||
| 68 | 71 | ||
| 69 | ;; Stop "Local Variables" above causing confusion when visiting this file. | 72 | ;; Stop "Local Variables" above causing confusion when visiting this file. |
| 70 | 73 | ||