| 275 |
ISO/IEC 2022 based 8-bit encoding used in inter-client |
ISO/IEC 2022 based 8-bit encoding used in inter-client |
| 276 |
communication of X Window System (Alias: ctext (emacsen), x-ctext (emacsen)) |
communication of X Window System (Alias: ctext (emacsen), x-ctext (emacsen)) |
| 277 |
|
|
| 278 |
|
Strictly, x-ctext, extended compound text (X Compound Text |
| 279 |
|
based encoding for unknown ISO/IEC 2022 based encoding) is a |
| 280 |
|
different coding system from X Compound Text. See |
| 281 |
|
[mule-jp:7455] <mid:rsqsoa5s2hr.fsf@crane.jaist.ac.jp> and |
| 282 |
|
[mule-jp:7457] <mid:rsq4smlky85.fsf@crane.jaist.ac.jp>. |
| 283 |
|
|
| 284 |
=cut |
=cut |
| 285 |
|
|
| 286 |
sub __2022__common ($) { |
sub __2022__common ($) { |
| 309 |
$C->{option}->{reset}->{Ginvoke} = 0; |
$C->{option}->{reset}->{Ginvoke} = 0; |
| 310 |
$C; |
$C; |
| 311 |
} |
} |
| 312 |
|
sub __2022_decode ($) { |
| 313 |
|
my $C = shift->__2022__common; |
| 314 |
|
## Emacsen's x-ctext |
| 315 |
|
$C->{G1} = $Encode::ISO2022::CHARSET{G96}->{A}; ## ISO/IEC 8859-1 |
| 316 |
|
$C; |
| 317 |
|
} |
| 318 |
|
|
| 319 |
|
|
| 320 |
1; |
1; |
| 324 |
|
|
| 325 |
=head1 LICENSE |
=head1 LICENSE |
| 326 |
|
|
| 327 |
Copyright 2002 wakaba <w@suika.fam.cx> |
Copyright 2002 Wakaba <w@suika.fam.cx> |
| 328 |
|
|
| 329 |
This library is free software; you can redistribute it |
This library is free software; you can redistribute it |
| 330 |
and/or modify it under the same terms as Perl itself. |
and/or modify it under the same terms as Perl itself. |