applications/urxvt-perls
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Small alignment adjustments

Browse Source
This commit is contained in:
Bert Münnich 2015-03-28 13:53:30 +01:00
parent cc8e579de0
commit e4dbde31ed
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
url-select
View File

@ -101,8 +101,8 @@ sub line_update {
# clear all underlines that were set by us # clear all underlines that were set by us
for (@$rend) { for (@$rend) {
if (urxvt::GET_CUSTOM($_) & UNDERLINED) { if (urxvt::GET_CUSTOM($_) & UNDERLINED) {
$_ = urxvt::SET_CUSTOM($_, urxvt::GET_CUSTOM($_) $_ = urxvt::SET_CUSTOM($_, urxvt::GET_CUSTOM($_) & ~UNDERLINED) &
& ~UNDERLINED) & ~urxvt::RS_Uline; ~urxvt::RS_Uline;
} }
} }
@ -113,8 +113,7 @@ sub line_update {
for (@{$rend}[$beg .. $end]) { for (@{$rend}[$beg .. $end]) {
unless ($_ & urxvt::RS_Uline) { unless ($_ & urxvt::RS_Uline) {
$_ = urxvt::SET_CUSTOM($_, urxvt::GET_CUSTOM($_) $_ = urxvt::SET_CUSTOM($_, urxvt::GET_CUSTOM($_) | UNDERLINED);
| UNDERLINED);
$_ |= urxvt::RS_Uline; $_ |= urxvt::RS_Uline;
} }
} }
@ -255,7 +254,7 @@ sub select_next {
} }
while (($dir < 0 && $row > $self->top_row) || while (($dir < 0 && $row > $self->top_row) ||
($dir > 0 && $row < $self->nrow - 1)) { ($dir > 0 && $row < $self->nrow - 1)) {
my $line = $self->line($row); my $line = $self->line($row);
$row = ($dir < 0 ? $line->beg : $line->end) + $dir; $row = ($dir < 0 ? $line->beg : $line->end) + $dir;
$line = $self->line($row); $line = $self->line($row);