write major keywords;
authorwenzelm
Fri, 26 May 2000 18:28:15 +0200
changeset 8990 19956dd3809e
parent 8989 8791e3304748
child 8991 dc70b797827f
write major keywords;
src/Pure/Interface/proof_general.ML
--- a/src/Pure/Interface/proof_general.ML	Fri May 26 18:08:46 2000 +0200
+++ b/src/Pure/Interface/proof_general.ML	Fri May 26 18:28:15 2000 +0200
@@ -281,6 +281,7 @@
   \;;\n\
   \;; $" ^ "Id$\n\
   \;;\n" ^
+  defconst "major" (map #1 commands) ^
   defconst "minor" (filter Syntax.is_identifier keywords) ^
   implode (map (make_elisp_commands commands) OuterSyntax.Keyword.kinds) ^
   "\n(provide 'isar-keywords)\n";