src/Pure/Interface/proof_general.ML
changeset 7027 ca0fbe679bbb
parent 6947 a233bc746c75
child 7100 4f777a0e1c8b
     1.1 --- a/src/Pure/Interface/proof_general.ML	Fri Jul 16 22:26:44 1999 +0200
     1.2 +++ b/src/Pure/Interface/proof_general.ML	Fri Jul 16 22:27:16 1999 +0200
     1.3 @@ -28,7 +28,7 @@
     1.4    "\n  '(" ^ space_implode "\n    " (map (quote o regexp_quote) strs) ^ "))\n";
     1.5  
     1.6  fun make_elisp_commands commands kind =
     1.7 -  defconst kind (mapfilter (fn (c, k) => if k = kind then Some c else None) commands);
     1.8 +  defconst kind (mapfilter (fn (c, _, k, _) => if k = kind then Some c else None) commands);
     1.9  
    1.10  fun make_elisp_syntax (keywords, commands) =
    1.11    ";;\n\
    1.12 @@ -37,7 +37,7 @@
    1.13    \;;\n\
    1.14    \;; $" ^ "Id$\n\
    1.15    \;;\n" ^
    1.16 -  defconst "minor" (filter Syntax.is_identifier (keywords \\ map #1 commands)) ^
    1.17 +  defconst "minor" (filter Syntax.is_identifier keywords) ^
    1.18    implode (map (make_elisp_commands commands) OuterSyntax.Keyword.kinds) ^
    1.19    "\n(provide 'isar-keywords)\n";
    1.20  
    1.21 @@ -46,7 +46,8 @@
    1.22  in
    1.23  
    1.24  fun write_keywords () =
    1.25 -  File.write (Path.unpack keywords_file) (make_elisp_syntax (OuterSyntax.dest_syntax ()));
    1.26 +  File.write (Path.unpack keywords_file)
    1.27 +    (make_elisp_syntax (OuterSyntax.dest_keywords (), OuterSyntax.dest_parsers ()));
    1.28  
    1.29  end;
    1.30