Mercurial > emacs
comparison lisp/international/utf-8.el @ 47231:2d6a05542b5b
*** empty log message ***
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 05 Sep 2002 00:27:49 +0000 |
parents | f0b8a25b0b7d |
children | d46bcfbfdda0 |
comparison
equal
deleted
inserted
replaced
47230:2f4274cc65ea | 47231:2d6a05542b5b |
---|---|
125 (?$,1(r(B . ?,Lr(B) (?$,1(s(B . ?,Ls(B) (?$,1(t(B . ?,Lt(B) (?$,1(u(B . ?,Lu(B) (?$,1(v(B . ?,Lv(B) | 125 (?$,1(r(B . ?,Lr(B) (?$,1(s(B . ?,Ls(B) (?$,1(t(B . ?,Lt(B) (?$,1(u(B . ?,Lu(B) (?$,1(v(B . ?,Lv(B) |
126 (?$,1(w(B . ?,Lw(B) (?$,1(x(B . ?,Lx(B) (?$,1(y(B . ?,Ly(B) (?$,1(z(B . ?,Lz(B) (?$,1({(B . ?,L{(B) | 126 (?$,1(w(B . ?,Lw(B) (?$,1(x(B . ?,Lx(B) (?$,1(y(B . ?,Ly(B) (?$,1(z(B . ?,Lz(B) (?$,1({(B . ?,L{(B) |
127 (?$,1(|(B . ?,L|(B) (?$,1(~(B . ?,L~(B) (?$,1((B . ?,L(B))) | 127 (?$,1(|(B . ?,L|(B) (?$,1(~(B . ?,L~(B) (?$,1((B . ?,L(B))) |
128 | 128 |
129 (defcustom utf-8-fragment-on-decoding nil | 129 (defcustom utf-8-fragment-on-decoding nil |
130 "Whether or not to decode some scripts in UTF-8 text into 8-bit characters. | 130 "Whether or not to decode some scripts in UTF-8 text into iso8859 charsets. |
131 Setting this means that the relevant Cyrillic and Greek characters are | 131 Setting this means that the relevant Cyrillic and Greek characters are |
132 decoded into the iso8859 charsets rather than into | 132 decoded into the iso8859 charsets rather than into |
133 mule-unicode-0100-24ff. The 8-bit characters take half as much space | 133 mule-unicode-0100-24ff. The iso8859 charsets take half as much space |
134 in the buffer, but using them may affect how the buffer can be re-encoded | 134 in the buffer, but using them may affect how the buffer can be re-encoded |
135 and may require a different input method to search for them, for instance. | 135 and may require a different input method to search for them, for instance. |
136 See `unify-8859-on-decoding-mode' and `unify-8859-on-encoding-mode' | 136 See `unify-8859-on-decoding-mode' and `unify-8859-on-encoding-mode' |
137 for mechanisms to make this largely transparent." | 137 for mechanisms to make this largely transparent. |
138 | |
139 Setting this variable outside customize has no effect." | |
138 :set (lambda (s v) | 140 :set (lambda (s v) |
139 (if v | 141 (if v |
140 (define-translation-table 'utf-8-translation-table-for-decode | 142 (define-translation-table 'utf-8-translation-table-for-decode |
141 utf-8-translation-table-for-decode) | 143 utf-8-translation-table-for-decode) |
142 (define-translation-table 'utf-8-translation-table-for-decode)) | 144 (define-translation-table 'utf-8-translation-table-for-decode)) |