Mercurial > emacs

changeset 37053:1a420f3df4f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fsubr_interactive_form): New function. (syms_of_data): Defsubr it.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 29 Mar 2001 13:58:30 +0000
parents 9131cdd6fa7f
children dec182bcbaa4
files src/data.c
diffstat 1 files changed, 15 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Thu Mar 29 11:51:26 2001 +0000
+++ b/src/data.c	Thu Mar 29 13:58:30 2001 +0000
@@ -731,6 +731,20 @@
     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 */
 
@@ -3000,6 +3014,7 @@
   staticpro (&Qbool_vector);
   staticpro (&Qhash_table);
 
+  defsubr (&Ssubr_interactive_form);
   defsubr (&Seq);
   defsubr (&Snull);
   defsubr (&Stype_of);