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

7
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;
} }
} }