broken error handling for command syntax -- reverted to revision 1.9;
authorwenzelm
Thu, 04 Jan 2007 19:27:08 +0100
changeset 22002 5c60e46a07c1
parent 22001 d79a84789875
child 22003 34e190b24399
broken error handling for command syntax -- reverted to revision 1.9;
src/Pure/ProofGeneral/proof_general_emacs.ML
--- a/src/Pure/ProofGeneral/proof_general_emacs.ML	Thu Jan 04 18:09:58 2007 +0100
+++ b/src/Pure/ProofGeneral/proof_general_emacs.ML	Thu Jan 04 19:27:08 2007 +0100
@@ -109,8 +109,7 @@
   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 "" "" "" s);
-  Toplevel.print_exn_fn := (K () o Option.map (decorate (special "364") (special "365") "*** ") o Toplevel.print_exn_str);
+  error_fn := (fn s => decorate (special "364") (special "365") "*** " s);
   panic_fn := (fn s => decorate (special "364") (special "365") "!!! " s));