ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/urxvt.pm
(Generate patch)

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.123 by root, Sat Jan 21 14:49:18 2006 UTC vs.
Revision 1.124 by root, Sun Jan 22 11:57:06 2006 UTC

561our $LIBDIR; 561our $LIBDIR;
562our $RESNAME; 562our $RESNAME;
563our $RESCLASS; 563our $RESCLASS;
564our $RXVTNAME; 564our $RXVTNAME;
565 565
566our $NOCHAR = chr 0xfffe; 566our $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
723no warnings 'utf8';
724
723my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; 725my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
724 726
725sub verbose { 727sub 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
1416If C<$new_text> is specified, it will replace characters in the current 1418If C<$new_text> is specified, it will replace characters in the current
1417line, starting at column C<$start_col> (default C<0>), which is useful 1419line, starting at column C<$start_col> (default C<0>), which is useful
1418to replace only parts of a line. The font index in the rendition will 1420to replace only parts of a line. The font index in the rendition will
1419automatically be updated. 1421automatically be updated.
1420 1422
1421C<$text> is in a special encoding: tabs and wide characters that use 1423C<$text> is in a special encoding: tabs and wide characters that use more
1422more than one cell when displayed are padded with C<$urxvt::NOCHAR> 1424than one cell when displayed are padded with C<$urxvt::NOCHAR> (chr 65535)
1423characters. Characters with combining characters and other characters that 1425characters. Characters with combining characters and other characters that
1424do not fit into the normal tetx encoding will be replaced with characters 1426do not fit into the normal tetx encoding will be replaced with characters
1425in the private use area. 1427in the private use area.
1426 1428
1427You have to obey this encoding when changing text. The advantage is 1429You have to obey this encoding when changing text. The advantage is

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines