Mercurial > emacs

comparison lisp/international/code-pages.el @ 48774:c41c265141e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mik, pt154): New coding systems.
author Dave Love <fx@gnu.org>
date Mon, 09 Dec 2002 20:12:57 +0000
parents d9e64bc9e308
children 4be31e60a8a1
comparison
equal deleted inserted replaced
48773:35cbff0c4bd1 48774:c41c265141e2
4716 ?\ ]) 4716 ?\ ])
4717 (define-coding-system-alias 'ruscii 'cp1125) 4717 (define-coding-system-alias 'ruscii 'cp1125)
4718 ;; Original name for cp1125, says Serhii Hlodin <hlodin@lutsk.bank.gov.ua> 4718 ;; Original name for cp1125, says Serhii Hlodin <hlodin@lutsk.bank.gov.ua>
4719 (define-coding-system-alias 'cp866u 'cp1125) 4719 (define-coding-system-alias 'cp866u 'cp1125)
4720 4720
4721 ;; Suggested by Anton Zinoviev <anton@lml.bas.bg>: Bulgarian DOS
4722 ;; codepage. Table at
4723 ;; <URL:http://czyborra.com/charsets/bulgarian-mik.txt.gz>.
4724 (cp-make-coding-system
4725 mik
4726 [?А ?Б ?В ?Г ?Д ?Е ?Ж ?З ?И ?Й ?К ?Л ?М ?Н ?О ?П ?Р ?С ?Т ?У ?Ф ?Х ?Ц
4727 ?Ч ?Ш ?Щ ?Ъ ?Ы ?Ь ?Э ?Ю ?Я ?а ?б ?в ?г ?д ?е ?ж ?з ?и ?й ?к ?л ?м ?н
4728 ?о ?п ?р ?с ?т ?у ?ф ?х ?ц ?ч ?ш ?щ ?ъ ?ы ?ь ?э ?ю ?я ?└ ?┴ ?┬ ?├ ?─
4729 ?┼ ?╣ ?║ ?╚ ?╔ ?╩ ?╦ ?╠ ?═ ?╬ ?┐ ?░ ?▒ ?▓ ?│ ?┤ ?№ ?§ ?╗ ?╝ ?┘ ?┌ ?█
4730 ?▄ ?▌ ?▐ ?▀ ?α ?β ?Γ ?π ?Σ ?σ ?μ ?τ ?Φ ?Θ ?Ω ?δ ?∞ ?∅ ?∈ ?∩ ?≡ ?± ?≥
4731 ?≤ ?⌠ ?⌡ ?÷ ?≈ ?° ?∙ ?· ?√ ?ⁿ ?² ?■ ? ])
4732
4733 ;; Suggested by Anton Zinoviev <anton@lml.bas.bg>: similar to CP1251
4734 ;; and used for some non-Slavic Cyrillic languages. Table found at
4735 ;; <URL:ftp://ftp.logic.ru/pub/logic/linux/cyr-asian/PT154>. See also
4736 ;; <URL:http://lists.w3.org/Archives/Public/ietf-charsets/2002AprJun/0092.html,
4737 ;; which suggests it's used in an Asian Cyrillic context.
4738 (cp-make-coding-system
4739 pt154
4740 [?Җ ?Ғ ?Ӯ ?ғ ?„ ?… ?Ҷ ?Ү ?Ҳ ?ү ?Ҡ ?Ӣ ?Ң ?Қ ?Һ ?Ҹ ?җ ?‘ ?’ ?“ ?” ?• ?–
4741 ?— ?ҳ ?ҷ ?ҡ ?ӣ ?ң ?қ ?һ ?ҹ ?  ?Ў ?ў ?Ј ?Ө ?Ҙ ?Ұ ?§ ?Ё ?© ?Ә ?\« ?¬ ?ӯ
4742 ?® ?Ҝ ?° ?ұ ?І ?і ?ҙ ?ө ?¶ ?· ?ё ?№ ?ә ?» ?ј ?Ҫ ?ҫ ?ҝ ?А ?Б ?В ?Г ?Д
4743 ?Е ?Ж ?З ?И ?Й ?К ?Л ?М ?Н ?О ?П ?Р ?С ?Т ?У ?Ф ?Х ?Ц ?Ч ?Ш ?Щ ?Ъ ?Ы
4744 ?Ь ?Э ?Ю ?Я ?а ?б ?в ?г ?д ?е ?ж ?з ?и ?й ?к ?л ?м ?н ?о ?п ?р ?с ?т
4745 ?у ?ф ?х ?ц ?ч ?ш ?щ ?ъ ?ы ?ь ?э ?ю ?я])
4746
4721 (cp-make-coding-system 4747 (cp-make-coding-system
4722 iso-8859-11 4748 iso-8859-11
4723 [ 4749 [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
4724 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil 4750 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
4725 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil 4751 ?  ?ก ?ข ?ฃ ?ค ?ฅ ?ฆ ?ง ?จ ?ฉ ?ช ?ซ ?ฌ ?ญ ?ฎ ?ฏ
4726 ?  ?ก ?ข ?ฃ ?ค ?ฅ ?ฆ ?ง ?จ ?ฉ ?ช ?ซ ?ฌ ?ญ ?ฎ ?ฏ 4752 ?ฐ ?ฑ ?ฒ ?ณ ?ด ?ต ?ถ ?ท ?ธ ?น ?บ ?ป ?ผ ?ฝ ?พ ?ฟ
4727 ?ฐ ?ฑ ?ฒ ?ณ ?ด ?ต ?ถ ?ท ?ธ ?น ?บ ?ป ?ผ ?ฝ ?พ ?ฟ 4753 ?ภ ?ม ?ย ?ร ?ฤ ?ล ?ฦ ?ว ?ศ ?ษ ?ส ?ห ?ฬ ?อ ?ฮ ?ฯ
4728 ?ภ ?ม ?ย ?ร ?ฤ ?ล ?ฦ ?ว ?ศ ?ษ ?ส ?ห ?ฬ ?อ ?ฮ ?ฯ 4754 ?ะ ?ั ?า ?ำ ?ิ ?ี ?ึ ?ื ?ุ ?ู ?ฺ nil nil nil nil ?฿
4729 ?ะ ?ั ?า ?ำ ?ิ ?ี ?ึ ?ื ?ุ ?ู ?ฺ nil nil nil nil ?฿ 4755 ?เ ?แ ?โ ?ใ ?ไ ?ๅ ?ๆ ?็ ?่ ?้ ?๊ ?๋ ?์ ?ํ ?๎ ?๏
4730 ?เ ?แ ?โ ?ใ ?ไ ?ๅ ?ๆ ?็ ?่ ?้ ?๊ ?๋ ?์ ?ํ ?๎ ?๏ 4756 ?๐ ?๑ ?๒ ?๓ ?๔ ?๕ ?๖ ?๗ ?๘ ?๙ ?๚ ?๛ nil nil nil nil]
4731 ?๐ ?๑ ?๒ ?๓ ?๔ ?๕ ?๖ ?๗ ?๘ ?๙ ?๚ ?๛ nil nil nil nil
4732 ]
4733 "ISO-8859-11. This is `thai-tis620' with the addition of no-break-space.") 4757 "ISO-8859-11. This is `thai-tis620' with the addition of no-break-space.")
4734 4758
4735 (dotimes (i 8) 4759 (dotimes (i 8)
4736 (let ((w (intern (format "windows-125%d" i))) 4760 (let ((w (intern (format "windows-125%d" i)))
4737 (c (intern (format "cp125%d" i)))) 4761 (c (intern (format "cp125%d" i))))