--- a/src/Pure/ProofGeneral/proof_general_pgip.ML Thu Mar 15 23:06:22 2012 +0100
+++ b/src/Pure/ProofGeneral/proof_general_pgip.ML Fri Mar 16 11:26:55 2012 +0100
@@ -314,8 +314,7 @@
(** lexicalstructure element with keywords (PGIP version of elisp keywords file) **)
fun lexicalstructure_keywords () =
- let val keywords = Keyword.dest_keywords ()
- val commands = Keyword.dest_commands ()
+ let val (keywords, commands) = Keyword.dest ()
fun keyword_elt kind keyword =
XML.Elem (("keyword", [("word", keyword), ("category", kind)]), [])
in