From 340a13f9915e5a06385a3ec2178e25539cfcd5bc Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Sat, 6 Aug 2011 15:57:21 +0100
Subject: [PATCH] docs: Fix function names in deprecation notices. (cherry
 picked from commit 60adf092a8900323c048c94f3f0934be416a3eb6)

---
 generator/generator_c.ml          | 2 +-
 generator/generator_docstrings.ml | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/generator/generator_c.ml b/generator/generator_c.ml
index 90b060c..62b1189 100644
--- a/generator/generator_c.ml
+++ b/generator/generator_c.ml
@@ -255,7 +255,7 @@ I<The caller must free the returned buffer after use>.\n\n"
           pr "This function takes a key or passphrase parameter which
 could contain sensitive material.  Read the section
 L</KEYS AND PASSPHRASES> for more information.\n\n";
-        (match deprecation_notice flags with
+        (match deprecation_notice ~prefix:"guestfs_" flags with
          | None -> ()
          | Some txt -> pr "%s\n\n" txt
         );
diff --git a/generator/generator_docstrings.ml b/generator/generator_docstrings.ml
index de31aa5..6d242bd 100644
--- a/generator/generator_docstrings.ml
+++ b/generator/generator_docstrings.ml
@@ -40,17 +40,17 @@ let danger_will_robinson =
   "B<This command is dangerous.  Without careful use you
 can easily destroy all your data>."
 
-let deprecation_notice flags =
+let deprecation_notice ?(prefix = "") flags =
   try
     let alt =
       find_map (function DeprecatedBy str -> Some str | _ -> None) flags in
     let txt =
       sprintf "This function is deprecated.
-In new code, use the C<%s> call instead.
+In new code, use the L</%s%s> call instead.
 
 Deprecated functions will not be removed from the API, but the
 fact that they are deprecated indicates that there are problems
-with correct use of these functions." alt in
+with correct use of these functions." prefix alt in
     Some txt
   with
     Not_found -> None
-- 
1.8.3.1