doc-src/antiquote_setup.ML
changeset 31297 a176e4dfb388
parent 30396 841ce0fcbe14
child 31546 d58d6acab331
equal deleted inserted replaced
31296:ba296a58d813 31297:a176e4dfb388
   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";