Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

(cp1125): New.

Browse source
This commit is contained in:
Dave Love 2001-11-29 14:52:39 +00:00
parent 1bd35556d9
commit 2c92b538e6
2 changed files with 146 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ChangeLog
View file

@ -1,3 +1,14 @@
2001-11-29 Dave Love <fx@gnu.org>
* international/codepages.el (cp1125): New.
2001-11-25 Dave Love <fx@gnu.org>
* international/utf-8.el (utf-8-post-read-conversion): Fix typo.
* international/characters.el: Move Unicode Indian equivalents
from Devanagari to Indian.
2001-11-11 Dave Love <fx@gnu.org>
* language/thai.el: Add Unicode equivalents.

136
lisp/international/codepages.el
View file

@ -35,7 +35,7 @@
;; Those covered are: cp437, cp737, cp720, cp775, cp850, cp851, cp852,
;; cp855, cp857, cp860, cp861, cp862, cp863, cp864, cp865, cp866,
;; cp869, cp874, windows-1250, windows-1251, windows-1252,
;; cp869, cp874, cp1125, windows-1250, windows-1251, windows-1252,
;; windows-1253, windows-1254, windows-1255, windows-1256,
;; windows-1257, windows-1258, next, koi8-r, koi8-u, iso-8859-6,
;; iso-8859-10, iso-8859-12, iso-8859-16, koi8-t, georgian-ps. This
@ -4905,6 +4905,140 @@ corresponding args of `make-coding-system'. If MNEMONIC isn't given,
?\ ])
(coding-system-put 'cp720 'mime-charset nil) ; not in IANA list
;; http://oss.software.ibm.com/cvs/icu/charset/data/ucm/ibm-1125_P100-2000.ucm
(cp-make-coding-system
cp1125
[?\А
?\Б
?\В
?\Г
?\Д
?\Е
?\Ж
?\З
?\И
?\Й
?\К
?\Л
?\М
?\Н
?\О
?\П
?\Р
?\С
?\Т
?\У
?\Ф
?\Х
?\Ц
?\Ч
?\Ш
?\Щ
?\Ъ
?\Ы
?\Ь
?\Э
?\Ю
?\Я
?\а
?\б
?\в
?\г
?\д
?\е
?\ж
?\з
?\и
?\й
?\к
?\л
?\м
?\н
?\о
?\п
?\░
?\▒
?\▓
?\│
?\┤
?\╡
?\╢
?\╖
?\╕
?\╣
?\║
?\╗
?\╝
?\╜
?\╛
?\┐
?\└
?\┴
?\┬
?\├
?\─
?\┼
?\╞
?\╟
?\╚
?\╔
?\╩
?\╦
?\╠
?\═
?\╬
?\╧
?\╨
?\╤
?\╥
?\╙
?\╘
?\╒
?\╓
?\╫
?\╪
?\┘
?\┌
?\█
?\▄
?\▌
?\▐
?\▀
?\р
?\с
?\т
?\у
?\ф
?\х
?\ц
?\ч
?\ш
?\щ
?\ъ
?\ы
?\ь
?\э
?\ю
?\я
?\Ё
?\ё
?\Ґ
?\ґ
?\Є
?\є
?\І
?\і
?\Ї
?\ї
?\÷
?\±
?\№
?\¤
?\￭
?\ ])
;; Original ;name for cp1125, says Serhii Hlodin <hlodin@lutsk.bank.gov.ua>
(define-coding-system-alias 'cp866u 'cp1125)
(dotimes (i 8)
(let ((w (intern (format "windows-125%d" i)))
(c (intern (format "cp125%d" i))))