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.190 by root, Fri Jan 7 21:17:08 2011 UTC vs.
Revision 1.215 by root, Thu Jun 7 16:30:58 2012 UTC

20=head1 DESCRIPTION 20=head1 DESCRIPTION
21 21
22Every time a terminal object gets created, extension scripts specified via 22Every time a terminal object gets created, extension scripts specified via
23the C<perl> resource are loaded and associated with it. 23the C<perl> resource are loaded and associated with it.
24 24
25Scripts are compiled in a 'use strict' and 'use utf8' environment, and 25Scripts are compiled in a 'use strict "vars"' and 'use utf8' environment, and
26thus must be encoded as UTF-8. 26thus must be encoded as UTF-8.
27 27
28Each script will only ever be loaded once, even in @@RXVT_NAME@@d, where 28Each script will only ever be loaded once, even in @@RXVT_NAME@@d, where
29scripts will be shared (but not enabled) for all terminals. 29scripts will be shared (but not enabled) for all terminals.
30 30
259The default pattern to match URLs can be overridden with the 259The default pattern to match URLs can be overridden with the
260C<matcher.pattern.0> resource, and additional patterns can be specified 260C<matcher.pattern.0> resource, and additional patterns can be specified
261with numbered patterns, in a manner similar to the "selection" extension. 261with numbered patterns, in a manner similar to the "selection" extension.
262The launcher can also be overridden on a per-pattern basis. 262The launcher can also be overridden on a per-pattern basis.
263 263
264It is possible to activate the most recently seen match from the keyboard. 264It is possible to activate the most recently seen match or a list of matches
265from the keyboard. Simply bind a keysym to "perl:matcher:last" or
265Simply bind a keysym to "perl:matcher" as seen in the example below. 266"perl:matcher:list" as seen in the example below.
266 267
267Example configuration: 268Example configuration:
268 269
269 URxvt.perl-ext: default,matcher 270 URxvt.perl-ext: default,matcher
270 URxvt.urlLauncher: sensible-browser 271 URxvt.urlLauncher: sensible-browser
271 URxvt.keysym.C-Delete: perl:matcher 272 URxvt.keysym.C-Delete: perl:matcher:last
273 URxvt.keysym.M-Delete: perl:matcher:list
272 URxvt.matcher.button: 1 274 URxvt.matcher.button: 1
273 URxvt.matcher.pattern.1: \\bwww\\.[\\w-]+\\.[\\w./?&@#-]*[\\w/-] 275 URxvt.matcher.pattern.1: \\bwww\\.[\\w-]+\\.[\\w./?&@#-]*[\\w/-]
274 URxvt.matcher.pattern.2: \\B(/\\S+?):(\\d+)(?=:|$) 276 URxvt.matcher.pattern.2: \\B(/\\S+?):(\\d+)(?=:|$)
275 URxvt.matcher.launcher.2: gvim +$2 $1 277 URxvt.matcher.launcher.2: gvim +$2 $1
276 278
398=item confirm-paste 400=item confirm-paste
399 401
400Displays a confirmation dialog when a paste containing at least a full 402Displays a confirmation dialog when a paste containing at least a full
401line is detected. 403line is detected.
402 404
405=item bell-command
406
407Runs the command specified by the C<URxvt.bell-command> resource when
408a bell event occurs. For example, the following pops up a notification
409bubble with the text "Beep, Beep" using notify-send:
410
411 URxvt.bell-command: notify-send "Beep, Beep"
412
403=back 413=back
404 414
405=head1 API DOCUMENTATION 415=head1 API DOCUMENTATION
406 416
407=head2 General API Considerations 417=head2 General API Considerations
436=item $octets 446=item $octets
437 447
438Either binary data or - more common - a text string encoded in a 448Either binary data or - more common - a text string encoded in a
439locale-specific way. 449locale-specific way.
440 450
451=item $keysym
452
453an integer that is a valid X11 keysym code. You can convert a string
454into a keysym and viceversa by using C<XStringToKeysym> and
455C<XKeysymToString>.
456
441=back 457=back
442 458
443=head2 Extension Objects 459=head2 Extension Objects
444 460
445Every perl extension is a perl class. A separate perl object is created 461Every perl extension is a perl class. A separate perl object is created
446for each terminal, and each terminal has its own set of extenion objects, 462for each terminal, and each terminal has its own set of extension objects,
447which are passed as the first parameter to hooks. So extensions can use 463which are passed as the first parameter to hooks. So extensions can use
448their C<$self> object without having to think about clashes with other 464their C<$self> object without having to think about clashes with other
449extensions or other terminals, with the exception of methods and members 465extensions or other terminals, with the exception of methods and members
450that begin with an underscore character C<_>: these are reserved for 466that begin with an underscore character C<_>: these are reserved for
451internal use. 467internal use.
656resource in the @@RXVT_NAME@@(1) manpage). 672resource in the @@RXVT_NAME@@(1) manpage).
657 673
658The event is simply the action string. This interface is assumed to change 674The event is simply the action string. This interface is assumed to change
659slightly in the future. 675slightly in the future.
660 676
677=item on_register_command $term, $keysym, $modifiermask, $string
678
679Called after parsing a keysym resource but before registering the
680associated binding. If this hook returns TRUE the binding is not
681registered. It can be used to modify a binding by calling
682C<register_command>.
683
661=item on_resize_all_windows $term, $new_width, $new_height 684=item on_resize_all_windows $term, $new_width, $new_height
662 685
663Called just after the new window size has been calculated, but before 686Called just after the new window size has been calculated, but before
664windows are actually being resized or hints are being set. If this hook 687windows are actually being resized or hints are being set. If this hook
665returns TRUE, setting of the window hints is being skipped. 688returns TRUE, setting of the window hints is being skipped.
732=cut 755=cut
733 756
734package urxvt; 757package urxvt;
735 758
736use utf8; 759use utf8;
737use strict; 760use strict 'vars';
738use Carp (); 761use Carp ();
739use Scalar::Util (); 762use Scalar::Util ();
740use List::Util (); 763use List::Util ();
741 764
742our $VERSION = 1; 765our $VERSION = 1;
743our $TERM; 766our $TERM;
744our @TERM_INIT; 767our @TERM_INIT; # should go, prevents async I/O etc.
745our @TERM_EXT; 768our @TERM_EXT; # should go, prevents async I/O etc.
746our @HOOKNAME; 769our @HOOKNAME;
747our %HOOKTYPE = map +($HOOKNAME[$_] => $_), 0..$#HOOKNAME; 770our %HOOKTYPE = map +($HOOKNAME[$_] => $_), 0..$#HOOKNAME;
748our %OPTION; 771our %OPTION;
749 772
750our $LIBDIR; 773our $LIBDIR;
801=item urxvt::fatal $errormessage 824=item urxvt::fatal $errormessage
802 825
803Fatally aborts execution with the given error message (which should 826Fatally aborts execution with the given error message (which should
804include a trailing newline). Avoid at all costs! The only time this 827include a trailing newline). Avoid at all costs! The only time this
805is acceptable (and useful) is in the init hook, where it prevents the 828is acceptable (and useful) is in the init hook, where it prevents the
806temrinal from starting up. 829terminal from starting up.
807 830
808=item urxvt::warn $string 831=item urxvt::warn $string
809 832
810Calls C<rxvt_warn> with the given string which should include a trailing 833Calls C<rxvt_warn> with the given string which should include a trailing
811newline. The module also overwrites the C<warn> builtin with a function 834newline. The module also overwrites the C<warn> builtin with a function
819=item @terms = urxvt::termlist 842=item @terms = urxvt::termlist
820 843
821Returns all urxvt::term objects that exist in this process, regardless of 844Returns all urxvt::term objects that exist in this process, regardless of
822whether they are started, being destroyed etc., so be careful. Only term 845whether they are started, being destroyed etc., so be careful. Only term
823objects that have perl extensions attached will be returned (because there 846objects that have perl extensions attached will be returned (because there
824is no urxvt::term objet associated with others). 847is no urxvt::term object associated with others).
825 848
826=item $time = urxvt::NOW 849=item $time = urxvt::NOW
827 850
828Returns the "current time" (as per the event loop). 851Returns the "current time" (as per the event loop).
829 852
920 }; 943 };
921} 944}
922 945
923no warnings 'utf8'; 946no warnings 'utf8';
924 947
948sub parse_resource {
949 my ($term, $name, $isarg, $longopt, $flag, $value) = @_;
950
951 $term->scan_meta;
952
953 my $r = $term->{meta}{resource};
954 while (my ($pattern, $v) = each %$r) {
955 $name =~ y/-/./ if $isarg;
956
957 if (
958 $pattern =~ /\.$/
959 ? $pattern eq substr $name, 0, length $pattern
960 : $pattern eq $name
961 ) {
962 $name = "$urxvt::RESCLASS.$name";
963
964 push @{ $term->{perl_ext_3} }, $v->[0];
965
966 if ($v->[1] eq "boolean") {
967 $term->put_option_db ($name, $flag ? "true" : "false");
968 return 1;
969 } else {
970 $term->put_option_db ($name, $value);
971 return 1 + 2;
972 }
973 }
974 }
975
976 0
977}
978
979sub usage {
980 my ($term, $usage_type) = @_;
981
982 $term->scan_meta;
983
984 my $r = $term->{meta}{resource};
985
986 for my $pattern (sort keys %$r) {
987 my ($ext, $type, $desc) = @{ $r->{$pattern} };
988
989 $desc .= " (-pe $ext)";
990
991 if ($usage_type == 1) {
992 $pattern =~ y/./-/;
993 $pattern =~ s/-$/-.../g;
994
995 if ($type eq "boolean") {
996 urxvt::log sprintf " -%-30s %s\n", "/+$pattern", $desc;
997 } else {
998 urxvt::log sprintf " -%-30s %s\n", "$pattern $type", $desc;
999 }
1000 } else {
1001 $pattern =~ s/\.$/.*/g;
1002 urxvt::log sprintf " %-31s %s\n", "$pattern:", $type;
1003 }
1004 }
1005}
1006
925my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; 1007my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
926 1008
927sub verbose { 1009sub verbose {
928 my ($level, $msg) = @_; 1010 my ($level, $msg) = @_;
929 warn "$msg\n" if $level <= $verbosity; 1011 warn "$msg\n" if $level <= $verbosity;
945 1027
946 open my $fh, "<:raw", $path 1028 open my $fh, "<:raw", $path
947 or die "$path: $!"; 1029 or die "$path: $!";
948 1030
949 my $source = 1031 my $source =
950 "package $pkg; use strict; use utf8; no warnings 'utf8';\n" 1032 "package $pkg; use strict 'vars'; use utf8; no warnings 'utf8';\n"
951 . "#line 1 \"$path\"\n{\n" 1033 . "#line 1 \"$path\"\n{\n"
952 . (do { local $/; <$fh> }) 1034 . (do { local $/; <$fh> })
953 . "\n};\n1"; 1035 . "\n};\n1";
954 1036
955 eval $source 1037 eval $source
965sub invoke { 1047sub invoke {
966 local $TERM = shift; 1048 local $TERM = shift;
967 my $htype = shift; 1049 my $htype = shift;
968 1050
969 if ($htype == 0) { # INIT 1051 if ($htype == 0) { # INIT
970 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); 1052 my @dirs = $TERM->perl_libdirs;
971 1053
972 my %ext_arg; 1054 my %ext_arg;
973 1055
974 { 1056 {
975 my @init = @TERM_INIT; 1057 my @init = @TERM_INIT;
978 my @pkg = @TERM_EXT; 1060 my @pkg = @TERM_EXT;
979 @TERM_EXT = (); 1061 @TERM_EXT = ();
980 $TERM->register_package ($_) for @pkg; 1062 $TERM->register_package ($_) for @pkg;
981 } 1063 }
982 1064
1065 for (
1066 @{ delete $TERM->{perl_ext_3} },
983 for (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 1067 grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2
1068 ) {
984 if ($_ eq "default") { 1069 if ($_ eq "default") {
985 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback readline); 1070 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback readline);
986 } elsif (/^-(.*)$/) { 1071 } elsif (/^-(.*)$/) {
987 delete $ext_arg{$1}; 1072 delete $ext_arg{$1};
988 } elsif (/^([^<]+)<(.*)>$/) { 1073 } elsif (/^([^<]+)<(.*)>$/) {
1136=head2 The C<urxvt::anyevent> Class 1221=head2 The C<urxvt::anyevent> Class
1137 1222
1138The sole purpose of this class is to deliver an interface to the 1223The sole purpose of this class is to deliver an interface to the
1139C<AnyEvent> module - any module using it will work inside urxvt without 1224C<AnyEvent> module - any module using it will work inside urxvt without
1140further programming. The only exception is that you cannot wait on 1225further programming. The only exception is that you cannot wait on
1141condition variables, but non-blocking condvar use is ok. What this means 1226condition variables, but non-blocking condvar use is ok.
1142is that you cannot use blocking APIs, but the non-blocking variant should 1227
1143work. 1228In practical terms this means is that you cannot use blocking APIs, but
1229the non-blocking variant should work.
1144 1230
1145=cut 1231=cut
1146 1232
1147our $VERSION = '5.23'; 1233our $VERSION = '5.23';
1148 1234
1207 1293
1208sub DESTROY { 1294sub DESTROY {
1209 $_[0][1]->stop; 1295 $_[0][1]->stop;
1210} 1296}
1211 1297
1298# only needed for AnyEvent < 6 compatibility
1212sub one_event { 1299sub one_event {
1213 Carp::croak "AnyEvent->one_event blocking wait unsupported in urxvt, use a non-blocking API"; 1300 Carp::croak "AnyEvent->one_event blocking wait unsupported in urxvt, use a non-blocking API";
1214} 1301}
1215 1302
1216package urxvt::term; 1303package urxvt::term;
1245 $proxy->enable ($name => $ref); 1332 $proxy->enable ($name => $ref);
1246 } 1333 }
1247 } 1334 }
1248} 1335}
1249 1336
1337sub perl_libdirs {
1338 map { split /:/ }
1339 $_[0]->resource ("perl_lib"),
1340 $ENV{URXVT_PERL_LIB},
1341 "$ENV{HOME}/.urxvt/ext",
1342 "$LIBDIR/perl"
1343}
1344
1345sub scan_meta {
1346 my ($self) = @_;
1347 my @libdirs = perl_libdirs $self;
1348
1349 return if $self->{meta_libdirs} eq join "\x00", @libdirs;
1350
1351 my %meta;
1352
1353 $self->{meta_libdirs} = join "\x00", @libdirs;
1354 $self->{meta} = \%meta;
1355
1356 for my $dir (reverse @libdirs) {
1357 opendir my $fh, $dir
1358 or next;
1359 for my $ext (readdir $fh) {
1360 $ext ne "."
1361 and $ext ne ".."
1362 and open my $fh, "<", "$dir/$ext"
1363 or next;
1364
1365 while (<$fh>) {
1366 if (/^#:META:X_RESOURCE:(.*)/) {
1367 my ($pattern, $type, $desc) = split /:/, $1;
1368 $pattern =~ s/^%(\.|$)/$ext$1/g; # % in pattern == extension name
1369 if ($pattern =~ /[^a-zA-Z0-9\-\.]/) {
1370 warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n";
1371 } else {
1372 $meta{resource}{$pattern} = [$ext, $type, $desc];
1373 }
1374 } elsif (/^\s*(?:#|$)/) {
1375 # skip other comments and empty lines
1376 } else {
1377 last; # stop parsing on first non-empty non-comment line
1378 }
1379 }
1380 }
1381 }
1382}
1383
1250=item $term = new urxvt::term $envhashref, $rxvtname, [arg...] 1384=item $term = new urxvt::term $envhashref, $rxvtname, [arg...]
1251 1385
1252Creates a new terminal, very similar as if you had started it with system 1386Creates a new terminal, very similar as if you had started it with system
1253C<$rxvtname, arg...>. C<$envhashref> must be a reference to a C<%ENV>-like 1387C<$rxvtname, arg...>. C<$envhashref> must be a reference to a C<%ENV>-like
1254hash which defines the environment of the new terminal. 1388hash which defines the environment of the new terminal.
1308C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash. 1442C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash.
1309 1443
1310Here is a likely non-exhaustive list of option names, please see the 1444Here is a likely non-exhaustive list of option names, please see the
1311source file F</src/optinc.h> to see the actual list: 1445source file F</src/optinc.h> to see the actual list:
1312 1446
1313 borderLess console cursorBlink cursorUnderline hold iconic insecure 1447 borderLess buffered console cursorBlink cursorUnderline hold iconic
1314 intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage 1448 insecure intensityStyles iso14755 iso14755_52 jumpScroll loginShell
1315 override-redirect pastableTabs pointerBlank reverseVideo scrollBar 1449 mapAlert meta8 mouseWheelScrollPage override_redirect pastableTabs
1316 scrollBar_floating scrollBar_right scrollTtyKeypress scrollTtyOutput 1450 pointerBlank reverseVideo scrollBar scrollBar_floating scrollBar_right
1317 scrollWithBuffer secondaryScreen secondaryScroll skipBuiltinGlyphs 1451 scrollTtyKeypress scrollTtyOutput scrollWithBuffer secondaryScreen
1318 transparent tripleclickwords utmpInhibit visualBell 1452 secondaryScroll skipBuiltinGlyphs skipScroll transparent tripleclickwords
1453 urgentOnBell utmpInhibit visualBell
1319 1454
1320=item $value = $term->resource ($name[, $newval]) 1455=item $value = $term->resource ($name[, $newval])
1321 1456
1322Returns the current resource value associated with a given name and 1457Returns the current resource value associated with a given name and
1323optionally sets a new value. Setting values is most useful in the C<init> 1458optionally sets a new value. Setting values is most useful in the C<init>
1336 1471
1337Here is a likely non-exhaustive list of resource names, not all of which 1472Here is a likely non-exhaustive list of resource names, not all of which
1338are supported in every build, please see the source file F</src/rsinc.h> 1473are supported in every build, please see the source file F</src/rsinc.h>
1339to see the actual list: 1474to see the actual list:
1340 1475
1341 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont 1476 answerbackstring backgroundPixmap backspace_key blendtype blurradius
1342 borderLess chdir color cursorBlink cursorUnderline cutchars delete_key 1477 boldFont boldItalicFont borderLess buffered chdir color cursorBlink
1343 display_name embed ext_bwidth fade font geometry hold iconName 1478 cursorUnderline cutchars delete_key depth display_name embed ext_bwidth
1344 imFont imLocale inputMethod insecure int_bwidth intensityStyles 1479 fade font geometry hold iconName iconfile imFont imLocale inputMethod
1345 italicFont jumpScroll lineSpace letterSpace loginShell mapAlert meta8 1480 insecure int_bwidth intensityStyles iso14755 iso14755_52 italicFont
1481 jumpScroll letterSpace lineSpace loginShell mapAlert meta8 modifier
1346 modifier mouseWheelScrollPage name override_redirect pastableTabs path 1482 mouseWheelScrollPage name override_redirect pastableTabs path perl_eval
1347 perl_eval perl_ext_1 perl_ext_2 perl_lib pointerBlank pointerBlankDelay 1483 perl_ext_1 perl_ext_2 perl_lib pointerBlank pointerBlankDelay
1348 preeditType print_pipe pty_fd reverseVideo saveLines scrollBar 1484 preeditType print_pipe pty_fd reverseVideo saveLines scrollBar
1349 scrollBar_align scrollBar_floating scrollBar_right scrollBar_thickness 1485 scrollBar_align scrollBar_floating scrollBar_right scrollBar_thickness
1350 scrollTtyKeypress scrollTtyOutput scrollWithBuffer scrollstyle 1486 scrollTtyKeypress scrollTtyOutput scrollWithBuffer scrollstyle
1351 secondaryScreen secondaryScroll shade term_name title 1487 secondaryScreen secondaryScroll shade skipBuiltinGlyphs skipScroll
1352 transient_for transparent transparent_all tripleclickwords utmpInhibit 1488 term_name title transient_for transparent tripleclickwords urgentOnBell
1353 visualBell 1489 utmpInhibit visualBell
1354 1490
1355=cut 1491=cut
1356 1492
1357sub resource($$;$) { 1493sub resource($$;$) {
1358 my ($self, $name) = (shift, shift); 1494 my ($self, $name) = (shift, shift);
1369 1505
1370This method should only be called during the C<on_start> hook, as there is 1506This method should only be called during the C<on_start> hook, as there is
1371only one resource database per display, and later invocations might return 1507only one resource database per display, and later invocations might return
1372the wrong resources. 1508the wrong resources.
1373 1509
1374=item $success = $term->parse_keysym ($keysym_spec, $command_string) 1510=item $value = $term->x_resource_boolean ($pattern)
1375 1511
1512Like C<x_resource>, above, but interprets the string value as a boolean
1513and returns C<1> for true values, C<0> for false values and C<undef> if
1514the resource or option isn't specified.
1515
1516You should always use this method to parse boolean resources.
1517
1518=cut
1519
1520sub x_resource_boolean {
1521 my $res = &x_resource;
1522
1523 $res =~ /^\s*(?:true|yes|on|1)\s*$/i ? 1 : defined $res && 0
1524}
1525
1526=item $success = $term->parse_keysym ($key, $octets)
1527
1376Adds a keymap translation exactly as specified via a resource. See the 1528Adds a key binding exactly as specified via a resource. See the
1377C<keysym> resource in the @@RXVT_NAME@@(1) manpage. 1529C<keysym> resource in the @@RXVT_NAME@@(1) manpage.
1530
1531=item $term->register_command ($keysym, $modifiermask, $string)
1532
1533Adds a key binding. This is a lower level api compared to
1534C<parse_keysym>, as it expects a parsed key description, and can be
1535used only inside either the C<on_init> hook, to add a binding, or the
1536C<on_register_command> hook, to modify a parsed binding.
1378 1537
1379=item $rend = $term->rstyle ([$new_rstyle]) 1538=item $rend = $term->rstyle ([$new_rstyle])
1380 1539
1381Return and optionally change the current rendition. Text that is output by 1540Return and optionally change the current rendition. Text that is output by
1382the terminal application will use this style. 1541the terminal application will use this style.
1595 1754
1596Adds the specified events to the vt event mask. Useful e.g. when you want 1755Adds the specified events to the vt event mask. Useful e.g. when you want
1597to receive pointer events all the times: 1756to receive pointer events all the times:
1598 1757
1599 $term->vt_emask_add (urxvt::PointerMotionMask); 1758 $term->vt_emask_add (urxvt::PointerMotionMask);
1759
1760=item $term->set_urgency ($set)
1761
1762Enable/disable the urgency hint on the toplevel window.
1600 1763
1601=item $term->focus_in 1764=item $term->focus_in
1602 1765
1603=item $term->focus_out 1766=item $term->focus_out
1604 1767
1920=item $term->XMoveResizeWindow ($window, $x, $y, $width, $height) 2083=item $term->XMoveResizeWindow ($window, $x, $y, $width, $height)
1921 2084
1922=item ($x, $y, $child_window) = $term->XTranslateCoordinates ($src, $dst, $x, $y) 2085=item ($x, $y, $child_window) = $term->XTranslateCoordinates ($src, $dst, $x, $y)
1923 2086
1924=item $term->XChangeInput ($window, $add_events[, $del_events]) 2087=item $term->XChangeInput ($window, $add_events[, $del_events])
2088
2089=item $keysym = $term->XStringToKeysym ($string)
2090
2091=item $string = $term->XKeysymToString ($keysym)
1925 2092
1926Various X or X-related functions. The C<$term> object only serves as 2093Various X or X-related functions. The C<$term> object only serves as
1927the source of the display, otherwise those functions map more-or-less 2094the source of the display, otherwise those functions map more-or-less
1928directly onto the X functions of the same name. 2095directly onto the X functions of the same name.
1929 2096
2251 2418
2252=back 2419=back
2253 2420
2254=head1 AUTHOR 2421=head1 AUTHOR
2255 2422
2256 Marc Lehmann <pcg@goof.com> 2423 Marc Lehmann <schmorp@schmorp.de>
2257 http://software.schmorp.de/pkg/rxvt-unicode 2424 http://software.schmorp.de/pkg/rxvt-unicode
2258 2425
2259=cut 2426=cut
2260 2427
22611 24281

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines