# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1003674044 0
# Node ID 471f00614030c7502df60e577676104e7874d6a4
# Parent  75fe73bea452cf7c563fd8bfaebb4246ecd8f2e9
(Finsert_string, Fml_if, Fml_provide_prefix_argument)
(Fml_prefix_argument_loop): Add usage: string to doc string.

diff -r 75fe73bea452 -r 471f00614030 src/mocklisp.c
--- a/src/mocklisp.c	Sun Oct 21 14:19:57 2001 +0000
+++ b/src/mocklisp.c	Sun Oct 21 14:20:44 2001 +0000
@@ -43,7 +43,9 @@
 * }
 */
 
-DEFUN ("ml-if", Fml_if, Sml_if, 0, UNEVALLED, 0, "Mocklisp version of `if'.")
+DEFUN ("ml-if", Fml_if, Sml_if, 0, UNEVALLED, 0,
+       "Mocklisp version of `if'.
+usage: (ml-if COND THEN ELSE...)")
   (args)
      Lisp_Object args;
 {
@@ -137,7 +139,8 @@
 
 DEFUN ("ml-provide-prefix-argument", Fml_provide_prefix_argument, Sml_provide_prefix_argument,
   2, UNEVALLED, 0,
-  "Evaluate second argument, using first argument as prefix arg value.")
+  "Evaluate second argument, using first argument as prefix arg value.
+usage: (ml-provide-prefix-argument ARG1 ARG2)")
   (args)
      Lisp_Object args;
 {
@@ -150,7 +153,7 @@
 
 DEFUN ("ml-prefix-argument-loop", Fml_prefix_argument_loop, Sml_prefix_argument_loop,
        0, UNEVALLED, 0,
-  "")
+  "usage: (ml-prefix-argument-loop ...)")
   (args)
      Lisp_Object args;
 {
@@ -201,7 +204,8 @@
 DEFUN ("insert-string", Finsert_string, Sinsert_string, 0, MANY, 0,
   "Mocklisp-compatibility insert function.\n\
 Like the function `insert' except that any argument that is a number\n\
-is converted into a string by expressing it in decimal.")
+is converted into a string by expressing it in decimal.
+usage: (insert-string &rest ARGS)")
   (nargs, args)
      int nargs;
      Lisp_Object *args;