src/Pure/ProofGeneral/proof_general_pgip.ML
changeset 51658 21c10672633b
parent 51293 05b1bbae748d
child 51933 a60c6c90a447
equal deleted inserted replaced
51657:3db1bbc82d8d 51658:21c10672633b
  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;