X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=generator%2Fgenerator_fish.ml;h=c5def5c9bf44406b9bf12c34eb8a2ad82bbc87bb;hb=18ee38e1eac132b91706771285d1764641179804;hp=532639dad06c7ad51a41ae5f4131137a9cc19de3;hpb=b8be128caa27fa5e1636e9e4caff3e23a6dc761f;p=libguestfs.git

diff --git a/generator/generator_fish.ml b/generator/generator_fish.ml
index 532639d..c5def5c 100644
--- a/generator/generator_fish.ml
+++ b/generator/generator_fish.ml
@@ -48,6 +48,9 @@ let generate_fish_cmds () =
 
   pr "#include <config.h>\n";
   pr "\n";
+  pr "/* It is safe to call deprecated functions from this file. */\n";
+  pr "#undef GUESTFS_WARN_DEPRECATED\n";
+  pr "\n";
   pr "#include <stdio.h>\n";
   pr "#include <stdlib.h>\n";
   pr "#include <string.h>\n";
@@ -413,6 +416,8 @@ Guestfish will prompt for these separately."
             pr "  if (%s == NULL) return -1;\n" name
         | Key name ->
             pr "  %s = read_key (\"%s\");\n" name name;
+            pr "  if (keys_from_stdin)\n";
+            pr "    input_lineno++;\n";
             pr "  if (%s == NULL) return -1;\n" name
         | Bool name ->
             pr "  %s = is_true (argv[i++]) ? 1 : 0;\n" name