From 72146cd7649afc6e266b435175036dd8e8212ffd Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Mon, 21 Oct 2019 12:06:04 +0100
Subject: [PATCH] Documentation fixes

---
 cpdfcommand.ml | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 2f84125..3ee9781 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -1446,6 +1446,8 @@ let whingemalformed () =
   prerr_string "Command line must be of exactly the form\ncpdf <infile> -gs <path> -gs-malformed-force -o <outfile>\n";
   exit 1
 
+let nothing () = ()
+
 (* Parse a control file, make an argv, and then make Arg parse it. *)
 let rec make_control_argv_and_parse filename =
   control_args := !control_args @ parse_control_file filename
@@ -1523,6 +1525,9 @@ and specs =
    ("-control",
       Arg.String make_control_argv_and_parse,
       " Use a control file. Deprecated. Use -args.");
+   ("-args",
+      Arg.Unit nothing,
+      " Get arguments from a file.");
    ("-merge",
        Arg.Unit (setop Merge),
        " Merge a number of files into one");