| … | |
… | |
| 1280 | =cut |
1280 | =cut |
| 1281 | |
1281 | |
| 1282 | sub resource($$;$) { |
1282 | sub resource($$;$) { |
| 1283 | my ($self, $name) = (shift, shift); |
1283 | my ($self, $name) = (shift, shift); |
| 1284 | unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); |
1284 | unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); |
| 1285 | &urxvt::term::_resource |
1285 | goto &urxvt::term::_resource |
| 1286 | } |
1286 | } |
| 1287 | |
1287 | |
| 1288 | =item $value = $term->x_resource ($pattern) |
1288 | =item $value = $term->x_resource ($pattern) |
| 1289 | |
1289 | |
| 1290 | Returns the X-Resource for the given pattern, excluding the program or |
1290 | Returns the X-Resource for the given pattern, excluding the program or |
