equal
deleted
inserted
replaced
1029 (* Extra command for embedding prover-control inside document (obscure/debug usage). *) |
1029 (* Extra command for embedding prover-control inside document (obscure/debug usage). *) |
1030 |
1030 |
1031 val _ = |
1031 val _ = |
1032 Outer_Syntax.improper_command |
1032 Outer_Syntax.improper_command |
1033 (("ProofGeneral.process_pgip", Keyword.control), Position.none) "(internal)" |
1033 (("ProofGeneral.process_pgip", Keyword.control), Position.none) "(internal)" |
1034 (Parse.text >> (Toplevel.no_timing oo |
1034 (Parse.text >> |
1035 (fn txt => Toplevel.imperative (fn () => |
1035 (fn txt => Toplevel.imperative (fn () => |
1036 if print_mode_active proof_general_emacsN |
1036 if print_mode_active proof_general_emacsN |
1037 then process_pgip_emacs txt |
1037 then process_pgip_emacs txt |
1038 else process_pgip_plain txt)))); |
1038 else process_pgip_plain txt))); |
1039 |
1039 |
1040 end; |
1040 end; |