- Timestamp:
- 11/17/08 03:47:58 (7 weeks ago)
- Files:
-
- 1 modified
-
src/perl6/STD_syntax_highlight (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/perl6/STD_syntax_highlight
r23027 r23030 470 470 if($rule_to_color) { 471 471 if($last_tree =~ /\sidentifier/) { 472 if($parser->is_type($buffer)) { 473 $rule_to_color = '_type'; 474 } elsif($parser->is_routine($buffer)) { 475 $rule_to_color = '_routine'; 476 } elsif($last_type ne '') { 472 if($last_type ne '') { 477 473 $rule_to_color = $last_type; 478 474 $last_type = ''; 479 } 475 } #elsif($parser->is_type($buffer)) { 476 #$rule_to_color = '_type'; 477 #} elsif($parser->is_routine($buffer)) { 478 #$rule_to_color = '_routine'; 479 #} 480 480 } elsif($last_tree =~ /\ssigil/) { 481 481 given($buffer) {
