comparison src/mocklisp.c @ 40148:e6c3a4ad65ce

(Fml_if, Fml_provide_prefix_argument) (Finsert_string): Avoid the multi-line string literals warning.

40147:74963e4d77a7

*   return Qnil;
* }
*/

DEFUN ("ml-if", Fml_if, Sml_if, 0, UNEVALLED, 0,
       "Mocklisp version of `if'.
usage: (ml-if COND THEN ELSE...)")
  (args)
     Lisp_Object args;
{
  register Lisp_Object val;

  return (EQ (Vmocklisp_arguments, Qinteractive)) ? Qt : Qnil;
}

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.
usage: (ml-provide-prefix-argument ARG1 ARG2)")
  (args)
     Lisp_Object args;
{
  struct gcpro gcpro1;

}
#endif /* 0 */
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.
usage: (insert-string &rest ARGS)")
  (nargs, args)
     int nargs;
     Lisp_Object *args;
{

40148:e6c3a4ad65ce

*   return Qnil;
* }
*/

DEFUN ("ml-if", Fml_if, Sml_if, 0, UNEVALLED, 0,
       "Mocklisp version of `if'.\n\
usage: (ml-if COND THEN ELSE...)")
  (args)
     Lisp_Object args;
{
  register Lisp_Object val;

  return (EQ (Vmocklisp_arguments, Qinteractive)) ? Qt : Qnil;
}

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.\n\
usage: (ml-provide-prefix-argument ARG1 ARG2)")
  (args)
     Lisp_Object args;
{
  struct gcpro gcpro1;

}
#endif /* 0 */
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.\n\
usage: (insert-string &rest ARGS)")
  (nargs, args)
     int nargs;
     Lisp_Object *args;
{