42 sub settings {
     43  my ($self,%s_hash) = @_;
     44  if (keys %s_hash) {
     45   foreach (keys %s_hash) {
     46    if ('highlight_function' eq $_) {
     47     my $is_ok = check_subroutine($s_hash{$_}) || '';
     48     $AUBBC{highlight} = 0;
     49     $AUBBC{highlight_function} = ($is_ok) ? \&{$s_hash{$_}} : \&{code_highlight};
     50    } else {
     51     $AUBBC{$_} = $s_hash{$_};
     52    }
     53   }
     54   &settings_prep;