comparison src/data.c @ 37053:1a420f3df4f8

(Fsubr_interactive_form): New function. (syms_of_data): Defsubr it.

37052:9131cdd6fa7f

    return Fcons (make_number (minargs), Qmany);
  else if (maxargs == UNEVALLED)
    return Fcons (make_number (minargs), Qunevalled);
  else
    return Fcons (make_number (minargs), make_number (maxargs));
}


/* Getting and setting values of symbols */

  staticpro (&Qvector);
  staticpro (&Qchar_table);
  staticpro (&Qbool_vector);
  staticpro (&Qhash_table);

  defsubr (&Seq);
  defsubr (&Snull);
  defsubr (&Stype_of);
  defsubr (&Slistp);
  defsubr (&Snlistp);

37053:1a420f3df4f8

    return Fcons (make_number (minargs), Qmany);
  else if (maxargs == UNEVALLED)
    return Fcons (make_number (minargs), Qunevalled);
  else
    return Fcons (make_number (minargs), make_number (maxargs));
}

DEFUN ("subr-interactive-form", Fsubr_interactive_form, Ssubr_interactive_form, 1, 1, 0,
  "Return the interactive form of SUBR or nil if none.\n\
SUBR must be a built-in function.  Value, if non-nil, is a list\n\
\(interactive SPEC).")
  (subr)
     Lisp_Object subr;
{
  if (!SUBRP (subr))
    wrong_type_argument (Qsubrp, subr);
  if (XSUBR (subr)->prompt)
    return list2 (Qinteractive, build_string (XSUBR (subr)->prompt));
  return Qnil;
}


/* Getting and setting values of symbols */

  staticpro (&Qvector);
  staticpro (&Qchar_table);
  staticpro (&Qbool_vector);
  staticpro (&Qhash_table);

  defsubr (&Ssubr_interactive_form);
  defsubr (&Seq);
  defsubr (&Snull);
  defsubr (&Stype_of);
  defsubr (&Slistp);
  defsubr (&Snlistp);