Mercurial > emacs
comparison src/data.c @ 37053:1a420f3df4f8
(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 | c21e776b768a |
children | 93e5959b8a0e |
comparison
equal
deleted
inserted
replaced
37052:9131cdd6fa7f | 37053:1a420f3df4f8 |
---|---|
727 return Fcons (make_number (minargs), Qmany); | 727 return Fcons (make_number (minargs), Qmany); |
728 else if (maxargs == UNEVALLED) | 728 else if (maxargs == UNEVALLED) |
729 return Fcons (make_number (minargs), Qunevalled); | 729 return Fcons (make_number (minargs), Qunevalled); |
730 else | 730 else |
731 return Fcons (make_number (minargs), make_number (maxargs)); | 731 return Fcons (make_number (minargs), make_number (maxargs)); |
732 } | |
733 | |
734 DEFUN ("subr-interactive-form", Fsubr_interactive_form, Ssubr_interactive_form, 1, 1, 0, | |
735 "Return the interactive form of SUBR or nil if none.\n\ | |
736 SUBR must be a built-in function. Value, if non-nil, is a list\n\ | |
737 \(interactive SPEC).") | |
738 (subr) | |
739 Lisp_Object subr; | |
740 { | |
741 if (!SUBRP (subr)) | |
742 wrong_type_argument (Qsubrp, subr); | |
743 if (XSUBR (subr)->prompt) | |
744 return list2 (Qinteractive, build_string (XSUBR (subr)->prompt)); | |
745 return Qnil; | |
732 } | 746 } |
733 | 747 |
734 | 748 |
735 /* Getting and setting values of symbols */ | 749 /* Getting and setting values of symbols */ |
736 | 750 |
2998 staticpro (&Qvector); | 3012 staticpro (&Qvector); |
2999 staticpro (&Qchar_table); | 3013 staticpro (&Qchar_table); |
3000 staticpro (&Qbool_vector); | 3014 staticpro (&Qbool_vector); |
3001 staticpro (&Qhash_table); | 3015 staticpro (&Qhash_table); |
3002 | 3016 |
3017 defsubr (&Ssubr_interactive_form); | |
3003 defsubr (&Seq); | 3018 defsubr (&Seq); |
3004 defsubr (&Snull); | 3019 defsubr (&Snull); |
3005 defsubr (&Stype_of); | 3020 defsubr (&Stype_of); |
3006 defsubr (&Slistp); | 3021 defsubr (&Slistp); |
3007 defsubr (&Snlistp); | 3022 defsubr (&Snlistp); |