Bug with duplicate setproducer and setcreator functions

This commit is contained in:
John Whitington 2020-09-16 16:16:15 +01:00
parent f3e0c97660
commit d51ba0dd5e
1 changed files with 4 additions and 4 deletions

View File

@ -1210,10 +1210,10 @@ let setsqueeze () =
args.squeeze <- true; args.squeeze <- true;
args.create_objstm <- true args.create_objstm <- true
let setcreator s = let setcreatoraswego s =
args.creator <- Some s args.creator <- Some s
let setproducer s = let setproduceraswego s =
args.producer <- Some s args.producer <- Some s
let setprepend s = let setprepend s =
@ -2101,10 +2101,10 @@ and specs =
Arg.String setremovedictentry, Arg.String setremovedictentry,
" Remove an entry from all dictionaries"); " Remove an entry from all dictionaries");
("-producer", ("-producer",
Arg.String setproducer, Arg.String setproduceraswego,
" Change the /Producer entry in the /Info dictionary"); " Change the /Producer entry in the /Info dictionary");
("-creator", ("-creator",
Arg.String setcreator, Arg.String setcreatoraswego,
" Change the /Creator entry in the /Info dictionary"); " Change the /Creator entry in the /Info dictionary");
("-list-spot-colors", ("-list-spot-colors",
Arg.Unit (setop ListSpotColours), Arg.Unit (setop ListSpotColours),