src/Pure/Interface/proof_general.ML
changeset 12602 6984018a98e3
parent 12592 0eb1685a00b4
equal deleted inserted replaced
12601:f0cf30cd7e4c 12602:6984018a98e3
   118 in
   118 in
   119 
   119 
   120 fun setup_messages () =
   120 fun setup_messages () =
   121  (writeln_fn := message "output" "" "" "";
   121  (writeln_fn := message "output" "" "" "";
   122   priority_fn := message "information" (oct_char "360") (oct_char "361") "";
   122   priority_fn := message "information" (oct_char "360") (oct_char "361") "";
   123   tracing_fn := message "tracing" (oct_char "360") (oct_char "361") (oct_char "375");
   123   tracing_fn := message "tracing" (oct_char "360" ^ oct_char "375") (oct_char "361") "";
   124   warning_fn := message "warning" (oct_char "362") (oct_char "363") "### ";
   124   warning_fn := message "warning" (oct_char "362") (oct_char "363") "### ";
   125   error_fn := message "error" (oct_char "364") (oct_char "365") "*** ");
   125   error_fn := message "error" (oct_char "364") (oct_char "365") "*** ");
   126 
   126 
   127 fun tell_clear_goals () = notify "Proof General, please clear the goals buffer.";
   127 fun tell_clear_goals () = notify "Proof General, please clear the goals buffer.";
   128 fun tell_clear_response () = notify "Proof General, please clear the response buffer.";
   128 fun tell_clear_response () = notify "Proof General, please clear the response buffer.";