Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
set printmode while marking
authorhaftmann
Thu, 02 Sep 2010 16:53:23 +0200
changeset 39069 371976383ac0
parent 39068 5ac590e8b320
child 39070 352bcd845998
set printmode while marking
src/Tools/Code/code_printer.ML file | annotate | diff | comparison | revisions 
--- a/src/Tools/Code/code_printer.ML	Thu Sep 02 16:53:23 2010 +0200
+++ b/src/Tools/Code/code_printer.ML	Thu Sep 02 16:53:23 2010 +0200
@@ -127,7 +127,8 @@
 fun doublesemicolon ps = Pretty.block [concat ps, str ";;"];
 fun indent i = Print_Mode.setmp [] (Pretty.indent i);
 
-fun markup_stmt name = Pretty.mark (code_presentationN, [(stmt_nameN, name)]);
+fun markup_stmt name = Print_Mode.setmp [code_presentationN]
+  (Pretty.mark (code_presentationN, [(stmt_nameN, name)]));
 
 fun filter_presentation presentation_names selected (XML.Elem ((name, attrs), xs)) =
       implode (map (filter_presentation presentation_names
isabelle