- elsif ($flags =~ s/^=//) { # alias
- $desc = $self->{sign}->{alias};
- $desc .= $flags eq "\e" ? 'esc' : $flags;
- $flags = $self->keyunalias($flags) . ' alias';
+ elsif ($flags =~ s/^=(\S+)\s?//) { # alias
+ my $ref = $1;
+ $desc = $self->{sign}->{alias} . ($ref eq "\e" ? 'esc' : $ref);
+ $flags = join ' ', $self->keyunalias($ref), 'alias', $flags;