author | wenzelm |
Fri, 23 Feb 2018 15:07:30 +0100 | |
changeset 67704 | 23d46836a5ac |
parent 67703 | 8c4806fe827f |
child 67705 | f7e37a94caee |
--- a/src/Pure/Syntax/printer.ML Fri Feb 23 14:32:59 2018 +0100 +++ b/src/Pure/Syntax/printer.ML Fri Feb 23 15:07:30 2018 +0100 @@ -75,7 +75,7 @@ fun type_emphasis ctxt T = T <> dummyT andalso (Config.get ctxt show_types orelse Config.get ctxt show_markup orelse - Config.get ctxt show_type_emphasis andalso not (can dest_Type T)); + Config.get ctxt show_type_emphasis andalso not (is_Type T));