From b7c3f0f2f57bcd0cc768c869d707b70f78c5bbfd Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 3 Jul 2006 16:39:59 +0000
Subject: Mise à jour (avec retard) des niveaux de la table
 default_pattern_levels

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8996 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/pcoq.ml4 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/parsing/pcoq.ml4 b/parsing/pcoq.ml4
index 5c6216687a..40e456061f 100644
--- a/parsing/pcoq.ml4
+++ b/parsing/pcoq.ml4
@@ -484,7 +484,10 @@ let default_levels =
    0,Gramext.RightA]
 
 let default_pattern_levels =
-  [10,Gramext.LeftA;
+  [200,Gramext.RightA;
+   100,Gramext.LeftA;
+   99,Gramext.RightA;
+   10,Gramext.LeftA;
    0,Gramext.RightA]
 
 let level_stack = 
-- 
cgit v1.2.3