Mercurial > emacs
comparison lisp/international/mule-conf.el @ 89050:c00be25be9ad
Don't define the charset iso-8859-1 here, just setup its properties.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 03 Sep 2002 04:05:26 +0000 |
parents | 2ce9656d788b |
children | ec87f7e069f1 |
comparison
equal
deleted
inserted
replaced
89049:aa9fa496b679 | 89050:c00be25be9ad |
---|---|
75 (put-charset-property | 75 (put-charset-property |
76 'ascii :short-name "ASCII") | 76 'ascii :short-name "ASCII") |
77 (put-charset-property | 77 (put-charset-property |
78 'ascii :long-name "ASCII (ISO646 IRV)") | 78 'ascii :long-name "ASCII (ISO646 IRV)") |
79 (put-charset-property | 79 (put-charset-property |
80 'iso-8859-1 :docstring "Latin-1 (ISO/IEC 8859-1)") | |
81 (put-charset-property | |
82 'iso-8859-1 :short-name "Latin-1") | |
83 (put-charset-property | |
84 'iso-8859-1 :long-name "Latin-1") | |
85 (put-charset-property | |
80 'unicode :docstring "Unicode (ISO10646)") | 86 'unicode :docstring "Unicode (ISO10646)") |
81 (put-charset-property | 87 (put-charset-property |
82 'unicode :short-name "Unicode") | 88 'unicode :short-name "Unicode") |
83 (put-charset-property | 89 (put-charset-property |
84 'unicode :long-name "Unicode (ISO10646)") | 90 'unicode :long-name "Unicode (ISO10646)") |
89 "Full Emacs characters" | 95 "Full Emacs characters" |
90 :ascii-compatible-p t | 96 :ascii-compatible-p t |
91 :code-space [ 0 255 0 255 0 63 ] | 97 :code-space [ 0 255 0 255 0 63 ] |
92 :code-offset 0 | 98 :code-offset 0 |
93 :supplementary-p t) | 99 :supplementary-p t) |
94 | |
95 (define-charset 'iso-8859-1 | |
96 "Latin-1 (ISO/IEC 8859-1)" | |
97 :short-name "Latin-1" | |
98 :ascii-compatible-p t | |
99 :code-space [0 255] | |
100 :code-offset 0) | |
101 | 100 |
102 (define-charset 'latin-iso8859-1 | 101 (define-charset 'latin-iso8859-1 |
103 "Right-Hand Part of ISO/IEC 8859/1 (Latin-1): ISO-IR-100" | 102 "Right-Hand Part of ISO/IEC 8859/1 (Latin-1): ISO-IR-100" |
104 :short-name "RHP of Latin-1" | 103 :short-name "RHP of Latin-1" |
105 :long-name "RHP of ISO/IEC 8859/1 (Latin-1): ISO-IR-100" | 104 :long-name "RHP of ISO/IEC 8859/1 (Latin-1): ISO-IR-100" |