diff options
author | 2012-08-10 09:53:26 +0000 | |
---|---|---|
committer | 2012-08-10 09:53:26 +0000 | |
commit | a6f8778bfa707cab5fe25466de11018683c2a9d3 (patch) | |
tree | 0c3cd1bb0ffe27742ded39abbfb3bdf9ec72d9e9 | |
parent | ec3bff58d151ff804866175e907664d1fba3c600 (diff) |
Fixes bug #2857.
Coqide used the wrong escape sequence to delimit coq phrases.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15720 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | ide/coq.lang | 2 | ||||
-rw-r--r-- | ide/coq_lex.mll | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/ide/coq.lang b/ide/coq.lang index daac4c181..e202e36b9 100644 --- a/ide/coq.lang +++ b/ide/coq.lang @@ -37,7 +37,7 @@ <define-regex id="decl_head">((?'gal'(Program\%{space}+)?(\%{single_decl}|\%{begin_proof}))\%{space}+(?'id'\%{ident}))|((?'gal4list'\%{mult_decl})(?'id_list'(\%{space}+\%{ident})+))</define-regex> <context id="escape-seq" style-ref="escape"> - <match>\\(\\|"|'|n|t|b|r)</match> + <match>""</match> </context> <context id="string" style-ref="string"> <start>"</start> diff --git a/ide/coq_lex.mll b/ide/coq_lex.mll index e20e44e22..2f3763880 100644 --- a/ide/coq_lex.mll +++ b/ide/coq_lex.mll @@ -18,8 +18,7 @@ let undotted_sep = [ '{' '}' '-' '+' '*' ] let dot_sep = '.' (space | eof) rule coq_string = parse - | "\\\"" { coq_string lexbuf } - | "\\\\" { coq_string lexbuf } + | "\"\"" { coq_string lexbuf } | "\"" { () } | eof { () } | _ { coq_string lexbuf } |