fixed perl string highlighting bug

--HG--
branch : pmacs2
This commit is contained in:
Erik Osheim 2009-07-21 16:21:16 -04:00
parent f2f6c9a504
commit cb948c082a
1 changed files with 2 additions and 2 deletions

View File

@ -85,9 +85,9 @@ class StrictStringGrammar(Grammar): rules = [
PatternRule('data', r"[^\\']+"), PatternRule('data', r"[^\\']+"),
] ]
class StringGrammar(Grammar): class StringGrammar(Grammar):
rules = _make_string_rules('"') + [PatternRule('data', '[^\\"]+')] rules = _make_string_rules('"') + [PatternRule('data', r'[^\\"]+')]
class EvalGrammar(Grammar): class EvalGrammar(Grammar):
rules = _make_string_rules('`') + [PatternRule('data', '[^\\`]+')] rules = _make_string_rules('`') + [PatternRule('data', r'[^\\`]+')]
class TranslateGrammar1(Grammar): class TranslateGrammar1(Grammar):
rules = [PatternRule('data', r"(?:\\.|[^\\/])")] rules = [PatternRule('data', r"(?:\\.|[^\\/])")]