From 5992b93bb503daab9526905dffe2bca1a472b4fc Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 29 Jan 2004 15:25:52 +0000
Subject: Ajout option raw_print (Set Printing All) pour desactiver toute
 fonctionnalite de haut niveau de l'affichage

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5269 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/detyping.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'pretyping')

diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml
index 748901e29a..06ae24175c 100644
--- a/pretyping/detyping.ml
+++ b/pretyping/detyping.ml
@@ -243,7 +243,9 @@ let detype_case computable detype detype_eqn tenv avoid indsp st p k c bl =
   let eqnl = Array.to_list eqnv in
   let tag =
     try 
-      if PrintingLet.active (indsp,consnargsl) then
+      if !Options.raw_print then
+        st
+      else if PrintingLet.active (indsp,consnargsl) then
 	LetStyle
       else if PrintingIf.active (indsp,consnargsl) then 
 	IfStyle
-- 
cgit v1.2.3