… | |
… | |
561 | our $LIBDIR; |
561 | our $LIBDIR; |
562 | our $RESNAME; |
562 | our $RESNAME; |
563 | our $RESCLASS; |
563 | our $RESCLASS; |
564 | our $RXVTNAME; |
564 | our $RXVTNAME; |
565 | |
565 | |
566 | our $NOCHAR = chr 0xfffe; |
566 | our $NOCHAR = chr 0xffff; |
567 | |
567 | |
568 | =head2 Variables in the C<urxvt> Package |
568 | =head2 Variables in the C<urxvt> Package |
569 | |
569 | |
570 | =over 4 |
570 | =over 4 |
571 | |
571 | |
… | |
… | |
718 | unless $msg =~ /\n$/; |
718 | unless $msg =~ /\n$/; |
719 | urxvt::warn ($msg); |
719 | urxvt::warn ($msg); |
720 | }; |
720 | }; |
721 | } |
721 | } |
722 | |
722 | |
|
|
723 | no warnings 'utf8'; |
|
|
724 | |
723 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
725 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
724 | |
726 | |
725 | sub verbose { |
727 | sub verbose { |
726 | my ($level, $msg) = @_; |
728 | my ($level, $msg) = @_; |
727 | warn "$msg\n" if $level <= $verbosity; |
729 | warn "$msg\n" if $level <= $verbosity; |
… | |
… | |
743 | |
745 | |
744 | open my $fh, "<:raw", $path |
746 | open my $fh, "<:raw", $path |
745 | or die "$path: $!"; |
747 | or die "$path: $!"; |
746 | |
748 | |
747 | my $source = |
749 | my $source = |
748 | "package $pkg; use strict; use utf8;\n" |
750 | "package $pkg; use strict; use utf8; no warnings 'utf8';\n" |
749 | . "#line 1 \"$path\"\n{\n" |
751 | . "#line 1 \"$path\"\n{\n" |
750 | . (do { local $/; <$fh> }) |
752 | . (do { local $/; <$fh> }) |
751 | . "\n};\n1"; |
753 | . "\n};\n1"; |
752 | |
754 | |
753 | eval $source |
755 | eval $source |
… | |
… | |
1416 | If C<$new_text> is specified, it will replace characters in the current |
1418 | If C<$new_text> is specified, it will replace characters in the current |
1417 | line, starting at column C<$start_col> (default C<0>), which is useful |
1419 | line, starting at column C<$start_col> (default C<0>), which is useful |
1418 | to replace only parts of a line. The font index in the rendition will |
1420 | to replace only parts of a line. The font index in the rendition will |
1419 | automatically be updated. |
1421 | automatically be updated. |
1420 | |
1422 | |
1421 | C<$text> is in a special encoding: tabs and wide characters that use |
1423 | C<$text> is in a special encoding: tabs and wide characters that use more |
1422 | more than one cell when displayed are padded with C<$urxvt::NOCHAR> |
1424 | than one cell when displayed are padded with C<$urxvt::NOCHAR> (chr 65535) |
1423 | characters. Characters with combining characters and other characters that |
1425 | characters. Characters with combining characters and other characters that |
1424 | do not fit into the normal tetx encoding will be replaced with characters |
1426 | do not fit into the normal tetx encoding will be replaced with characters |
1425 | in the private use area. |
1427 | in the private use area. |
1426 | |
1428 | |
1427 | You have to obey this encoding when changing text. The advantage is |
1429 | You have to obey this encoding when changing text. The advantage is |