Fix error reporting in Emacs to also match Isar command failure exactly.
authoraspinall
Wed Jan 03 22:59:30 2007 +0100 (2007-01-03)
changeset 219847b9c2f6b45f5
parent 21983 9fb029d1189b
child 21985 acfb13e8819e
Fix error reporting in Emacs to also match Isar command failure exactly.
src/Pure/ProofGeneral/proof_general_emacs.ML
     1.1 --- a/src/Pure/ProofGeneral/proof_general_emacs.ML	Wed Jan 03 21:11:42 2007 +0100
     1.2 +++ b/src/Pure/ProofGeneral/proof_general_emacs.ML	Wed Jan 03 22:59:30 2007 +0100
     1.3 @@ -109,7 +109,8 @@
     1.4    info_fn := (fn s => decorate (special "362") (special "363") "+++ " s);
     1.5    debug_fn := (fn s => decorate (special "362") (special "363") "+++ " s);
     1.6    warning_fn := (fn s => decorate (special "362") (special "363") "### " s);
     1.7 -  error_fn := (fn s => decorate (special "364") (special "365") "*** " s);
     1.8 +  error_fn := (fn s => decorate "" "" "" s);
     1.9 +  Toplevel.print_exn_fn := (Option.app (decorate (special "364") (special "365") "*** ") o Toplevel.print_exn_str);
    1.10    panic_fn := (fn s => decorate (special "364") (special "365") "!!! " s));
    1.11  
    1.12