src/Pure/Isar/isar_syn.ML
changeset 7124 78c01842d3b5
parent 7102 ead5c234b28c
child 7140 2c02c8e212fa
--- a/src/Pure/Isar/isar_syn.ML	Wed Jul 28 13:55:34 1999 +0200
+++ b/src/Pure/Isar/isar_syn.ML	Wed Jul 28 18:55:35 1999 +0200
@@ -426,6 +426,10 @@
 
 (** diagnostic commands (for interactive mode only) **)
 
+val pretty_setmarginP =
+  OuterSyntax.improper_command "pretty_setmargin" "change default margin for pretty printing"
+    K.diag (P.nat >> IsarCmd.pretty_setmargin);
+
 val print_commandsP =
   OuterSyntax.improper_command "help" "print outer syntax (global)" K.diag
     (Scan.succeed (Toplevel.imperative OuterSyntax.print_outer_syntax));
@@ -567,9 +571,9 @@
   skip_proofP, applyP, then_applyP, proofP, alsoP, finallyP, backP,
   cannot_undoP, clear_undoP, redoP, undos_proofP, kill_proofP, undoP,
   (*diagnostic commands*)
-  print_commandsP, print_theoryP, print_syntaxP, print_attributesP,
-  print_methodsP, print_theoremsP, print_bindsP, print_lthmsP,
-  print_thmsP, print_propP, print_termP, print_typeP,
+  pretty_setmarginP, print_commandsP, print_theoryP, print_syntaxP,
+  print_attributesP, print_methodsP, print_theoremsP, print_bindsP,
+  print_lthmsP, print_thmsP, print_propP, print_termP, print_typeP,
   (*system commands*)
   cdP, pwdP, use_thyP, use_thy_onlyP, update_thyP, update_thy_onlyP,
   touch_thyP, touch_all_thysP, remove_thyP, prP, commitP, quitP,