# HG changeset patch
# User aspinall
# Date 1167861570 -3600
# Node ID 7b9c2f6b45f509ace348c165bf54e83cf494f0f8
# Parent  9fb029d1189b0016b1297c732d9d5c2af8e54040
Fix error reporting in Emacs to also match Isar command failure exactly.

diff -r 9fb029d1189b -r 7b9c2f6b45f5 src/Pure/ProofGeneral/proof_general_emacs.ML
--- a/src/Pure/ProofGeneral/proof_general_emacs.ML	Wed Jan 03 21:11:42 2007 +0100
+++ b/src/Pure/ProofGeneral/proof_general_emacs.ML	Wed Jan 03 22:59:30 2007 +0100
@@ -109,7 +109,8 @@
   info_fn := (fn s => decorate (special "362") (special "363") "+++ " s);
   debug_fn := (fn s => decorate (special "362") (special "363") "+++ " s);
   warning_fn := (fn s => decorate (special "362") (special "363") "### " s);
-  error_fn := (fn s => decorate (special "364") (special "365") "*** " s);
+  error_fn := (fn s => decorate "" "" "" s);
+  Toplevel.print_exn_fn := (Option.app (decorate (special "364") (special "365") "*** ") o Toplevel.print_exn_str);
   panic_fn := (fn s => decorate (special "364") (special "365") "!!! " s));