Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/Pure/ProofGeneral/proof_general_emacs.ML
changeset 21986 76d3d258cfa3
parent 21984 7b9c2f6b45f5
child 22002 5c60e46a07c1 
--- a/src/Pure/ProofGeneral/proof_general_emacs.ML	Thu Jan 04 00:12:30 2007 +0100
+++ b/src/Pure/ProofGeneral/proof_general_emacs.ML	Thu Jan 04 11:56:53 2007 +0100
@@ -110,7 +110,7 @@
   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 := (Option.app (decorate (special "364") (special "365") "*** ") o Toplevel.print_exn_str);
+  Toplevel.print_exn_fn := (K () o Option.map (decorate (special "364") (special "365") "*** ") o Toplevel.print_exn_str);
   panic_fn := (fn s => decorate (special "364") (special "365") "!!! " s));
isabelle