127 |
(?$,1(|(B . ?,L|(B) (?$,1(~(B . ?,L~(B) (?$,1((B . ?,L(B))) |
(?$,1(|(B . ?,L|(B) (?$,1(~(B . ?,L~(B) (?$,1((B . ?,L(B))) |
128 |
|
|
129 |
(defcustom utf-8-fragment-on-decoding nil |
(defcustom utf-8-fragment-on-decoding nil |
130 |
"Whether or not to decode some scripts in UTF-8 text into 8-bit characters. |
"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 |
Setting this means that the relevant Cyrillic and Greek characters are |
132 |
decoded into the iso8859 charsets rather than into |
decoded into the iso8859 charsets rather than into |
133 |
mule-unicode-0100-24ff. The 8-bit characters take half as much space |
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 |
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. |
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' |
See `unify-8859-on-decoding-mode' and `unify-8859-on-encoding-mode' |
137 |
for mechanisms to make this largely transparent." |
for mechanisms to make this largely transparent. |
138 |
|
|
139 |
|
Setting this variable outside customize has no effect." |
140 |
:set (lambda (s v) |
:set (lambda (s v) |
141 |
(if v |
(if v |
142 |
(define-translation-table 'utf-8-translation-table-for-decode |
(define-translation-table 'utf-8-translation-table-for-decode |