equal
deleted
inserted
replaced
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."; |