From a6f8778bfa707cab5fe25466de11018683c2a9d3 Mon Sep 17 00:00:00 2001
From: aspiwack
Date: Fri, 10 Aug 2012 09:53:26 +0000
Subject: 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
---
 ide/coq.lang    | 2 +-
 ide/coq_lex.mll | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/ide/coq.lang b/ide/coq.lang
index daac4c181d..e202e36b99 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 e20e44e22b..2f3763880c 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 }
-- 
cgit v1.2.3