equal
deleted
inserted
replaced
157 else hyper o enclose "\\mbox{\\isa{" "}}")) |
157 else hyper o enclose "\\mbox{\\isa{" "}}")) |
158 else error ("Bad " ^ kind ^ " " ^ quote name) |
158 else error ("Bad " ^ kind ^ " " ^ quote name) |
159 end); |
159 end); |
160 |
160 |
161 fun entity_antiqs check markup kind = |
161 fun entity_antiqs check markup kind = |
162 [(entity check markup kind NONE), |
162 ((entity check markup kind NONE); |
163 (entity check markup kind (SOME true)), |
163 (entity check markup kind (SOME true)); |
164 (entity check markup kind (SOME false))]; |
164 (entity check markup kind (SOME false))); |
165 |
165 |
166 in |
166 in |
167 |
167 |
168 val _ = entity_antiqs no_check "" "syntax"; |
168 val _ = entity_antiqs no_check "" "syntax"; |
169 val _ = entity_antiqs (K (is_some o OuterKeyword.command_keyword)) "isacommand" "command"; |
169 val _ = entity_antiqs (K (is_some o OuterKeyword.command_keyword)) "isacommand" "command"; |