Mercurial > emacs

changeset 88533:3348b18fc9a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(koi8-u, koi8-t, georgian-ps) (windows-1250, windows-1251, windows-1252, cp1125, ebcdic-us) (ebcdic-uk): New charsets.
author Dave Love <fx@gnu.org>
date Thu, 16 May 2002 19:12:52 +0000
parents 6411031426af
children 27fb0f57ffe3
files lisp/international/mule-conf.el
diffstat 1 files changed, 78 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-conf.el	Thu May 16 19:11:24 2002 +0000
+++ b/lisp/international/mule-conf.el	Thu May 16 19:12:52 2002 +0000
@@ -438,6 +438,67 @@
   :code-space [0 255]
   :map "ibm866")
 
+(define-charset 'koi8-u
+  "KOI8-U"
+  :short-name "KOI8-U"
+  :long-name "KOI8-U"
+  :ascii-compatible-p t
+  :code-space [0 255]
+  :map "koi8-u")
+
+(define-charset 'koi8-t
+  "KOI8-T"
+  :short-name "KOI8-T"
+  :long-name "KOI8-T"
+  :ascii-compatible-p t
+  :code-space [0 255]
+  :map "koi8-t")
+
+(define-charset 'georgian-ps
+  "GEORGIAN-PS"
+  :short-name "GEORGIAN-PS"
+  :long-name "GEORGIAN-PS"
+  :ascii-compatible-p t
+  :code-space [0 255]
+  :map "georgian-ps")
+
+(define-charset 'windows-1250
+  "WINDOWS-1250"
+  :short-name "WINDOWS-1250"
+  :long-name "WINDOWS-1250"
+  :ascii-compatible-p t
+  :code-space [0 255]
+  :map "windows-1250")
+(define-charset-alias 'cp1250 'windows-1250)
+
+(define-charset 'windows-1251
+  "WINDOWS-1251"
+  :short-name "WINDOWS-1251"
+  :long-name "WINDOWS-1251"
+  :ascii-compatible-p t
+  :code-space [0 255]
+  :map "windows-1251")
+(define-charset-alias 'cp1251 'windows-1251)
+
+(define-charset 'windows-1252
+  "WINDOWS-1252"
+  :short-name "WINDOWS-1252"
+  :long-name "WINDOWS-1252"
+  :ascii-compatible-p t
+  :code-space [0 255]
+  :map "windows-1252")
+(define-charset-alias 'cp1252 'windows-1252)
+
+(define-charset 'cp1125
+  "CP1125"
+  :short-name "CP1125"
+  :long-name "CP1125"
+  :code-space [0 255]
+  :map "cp1125")
+(define-charset-alias 'ruscii 'cp1125)
+;; Original name for cp1125, says Serhii Hlodin <hlodin@lutsk.bank.gov.ua>
+(define-charset-alias 'cp866u 'cp1125)
+
 ;; For Arabic, we need three different types of character sets.
 ;; Digits are of direction left-to-right and of width 1-column.
 ;; Others are of direction right-to-left and of width 1-column or
@@ -594,6 +655,23 @@
   :code-space [0 255]
   :map "mac-roman")
 
+;; Fixme: modern EBCDIC variants, e.g. IBM00924?
+(define-charset 'ebcdic-us
+  "US version of EBCDIC"
+  :short-name "EBCDIC-US"
+  :long-name "EBCDIC-US"
+  :code-space [0 255]
+  :mime-charset 'ebcdic-us
+  :map "ebcdic-us")
+
+(define-charset 'ebcdic-uk
+  "UK version of EBCDIC"
+  :short-name "EBCDIC-UK"
+  :long-name "EBCDIC-UK"
+  :code-space [0 255]
+  :mime-charset 'ebcdic-uk
+  :map "ebcdic-uk")
+
 (unify-charset 'chinese-gb2312)
 (unify-charset 'chinese-gbk)
 (unify-charset 'chinese-cns11643-1)