FIXED: Bindings HIDE option

Author: nkh

lib/App/Asciio/Actions.pm

@@ -48,8 +48,7 @@ if($self->{USE_BINDINGS_COMPLETION} && ! $self->{CURRENT_ACTIONS}{HIDE})
 				{
 				my $shortcut = $_->{SHORTCUTS} ;
 
-				   ! exists $reserved{$shortcut} 
-				&& ! ($self->{CURRENT_ACTIONS}{$shortcut}{OPTIONS}{HIDE})
+				! exists $reserved{$shortcut} && ! $_->{OPTIONS}{HIDE}
 				} $self->{ACTIONS_ORDERED}{$self->{CURRENT_ACTIONS}{NAME}}->@* ;
 
 	$self->{BINDINGS_COMPLETION} = 
@@ -129,7 +128,6 @@ for my $action (@actions)
 
 		delete $self->{BINDINGS_COMPLETION} unless $self->{KEEP_BINDINGS_COMPLETION} ;
 
-		
 		if(defined $self->{CURRENT_ACTIONS}{$action}{ARGUMENTS})
 			{
 			push @results,
@@ -163,20 +161,20 @@ for my $action (@actions)
 			}
 		else
 			{
-			unless ($self->{KEEP_BINDINGS_COMPLETION})
-				{
-				delete $self->{BINDINGS_COMPLETION} ;
-				}
-			
+			delete $self->{BINDINGS_COMPLETION} unless $self->{KEEP_BINDINGS_COMPLETION} ;
 			delete $self->{KEEP_BINDINGS_COMPLETION} ;
 
 			if(defined $self->{CURRENT_ACTIONS}{ESCAPE_KEYS} && any { $_ eq $action } $self->{CURRENT_ACTIONS}{ESCAPE_KEYS}->@*)
 				{
 				$self->{ACTION_VERBOSE}->("\e[33m[$self->{CURRENT_ACTIONS}{NAME}] leaving\e[0m") if $self->{ACTION_VERBOSE} ; 
 
-				$self->{CURRENT_ACTIONS}{ESCAPE_GROUP}->($self) if defined $self->{CURRENT_ACTIONS}{ESCAPE_GROUP} ;
-				
-				$self->{CURRENT_ACTIONS} = $self->{ACTIONS} ;
+				if(defined $self->{CURRENT_ACTIONS}{ESCAPE_GROUP})
+					{
+					my $escape_sub           = $self->{CURRENT_ACTIONS}{ESCAPE_GROUP} ;
+					$self->{CURRENT_ACTIONS} = $self->{ACTIONS} ;
+					
+					$escape_sub->($self) ;
+					}
 				}
 			else
 				{
@@ -192,8 +190,14 @@ for my $action (@actions)
 			if(any { $_ eq $action } $self->{CURRENT_ACTIONS}{ESCAPE_KEYS}->@*)
 				{
 				$self->{ACTION_VERBOSE}->("\e[33m[$self->{CURRENT_ACTIONS}{NAME}] leaving\e[0m") if $self->{ACTION_VERBOSE} ; 
-				$self->{CURRENT_ACTIONS}{ESCAPE_GROUP}->($self) if defined $self->{CURRENT_ACTIONS}{ESCAPE_GROUP} ;
-				$self->{CURRENT_ACTIONS} = $self->{ACTIONS} ;
+				
+				if(defined $self->{CURRENT_ACTIONS}{ESCAPE_GROUP})
+					{
+					my $escape_sub           = $self->{CURRENT_ACTIONS}{ESCAPE_GROUP} ;
+					$self->{CURRENT_ACTIONS} = $self->{ACTIONS} ;
+					
+					$escape_sub->($self) ;
+					}
 				}
 			else
 				{