From f1a2c15b7a7d7edfd4b4b379ed0bde8b1f5deb7b Mon Sep 17 00:00:00 2001 From: Arnaud Spiwack Date: Wed, 27 Nov 2013 18:41:09 +0100 Subject: Factoring(continued). This commit removes the hook. --- plugins/xml/xmlcommand.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'plugins/xml') diff --git a/plugins/xml/xmlcommand.ml b/plugins/xml/xmlcommand.ml index 83a4d425b..5f26e2bac 100644 --- a/plugins/xml/xmlcommand.ml +++ b/plugins/xml/xmlcommand.ml @@ -412,7 +412,7 @@ let show_pftreestate internal fn (kind,pftst) id = let show fn = let pftst = Pfedit.get_pftreestate () in - let (id,kind,_,_) = Pfedit.current_proof_statement () in + let (id,kind,_) = Pfedit.current_proof_statement () in show_pftreestate false fn (kind,pftst) id ;; -- cgit v1.2.3