mirrors/git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-11-02 15:28:21 +01:00
Code Activity

Merge branch 'tr/add-i-no-escape'

Browse source 
* tr/add-i-no-escape:
  add -i: ignore terminal escape sequences
This commit is contained in:
Junio C Hamano 2011-05-23 10:50:06 -07:00
commit 4961210b17
1 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
git-add--interactive.perl
View file

@ -45,6 +45,9 @@
my $normal_color = $repo->get_color("", "reset"); my $normal_color = $repo->get_color("", "reset");
my $use_readkey = 0; my $use_readkey = 0;
my $use_termcap = 0;
my %term_escapes;
sub ReadMode; sub ReadMode;
sub ReadKey; sub ReadKey;
if ($repo->config_bool("interactive.singlekey")) { if ($repo->config_bool("interactive.singlekey")) {
@ -53,6 +56,14 @@
Term::ReadKey->import; Term::ReadKey->import;
$use_readkey = 1; $use_readkey = 1;
}; };
eval {
require Term::Cap;
my $termcap = Term::Cap->Tgetent;
foreach (values %$termcap) {
$term_escapes{$_} = 1 if /^\e/;
}
$use_termcap = 1;
};
} }
sub colored { sub colored {
@ -1067,6 +1078,14 @@ sub prompt_single_character {
ReadMode 'cbreak'; ReadMode 'cbreak';
my $key = ReadKey 0; my $key = ReadKey 0;
ReadMode 'restore'; ReadMode 'restore';
if ($use_termcap and $key eq "\e") {
while (!defined $term_escapes{$key}) {
my $next = ReadKey 0.5;
last if (!defined $next);
$key .= $next;
}
$key =~ s/\e/^[/;
}
print "$key" if defined $key; print "$key" if defined $key;
print "\n"; print "\n";
return $key; return $key;