mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(Fsubr_name): New fun.

Browse source 
(syms_of_data): Defsubr it.
This commit is contained in:
Stefan Monnier 2004-04-29 18:21:48 +00:00
parent e461972853
commit 0fddae66f4
2 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -1,3 +1,8 @@
2004-04-29 Stefan Monnier <monnier@iro.umontreal.ca>
* data.c (Fsubr_name): New fun.
(syms_of_data): Defsubr it.
2004-04-29 Kim F. Storm <storm@cua.dk>
* xdisp.c (null_glyph_slice): New var.

14
src/data.c
View file

@ -761,6 +761,19 @@ function with `&rest' args, or `unevalled' for a special form. */)
return Fcons (make_number (minargs), make_number (maxargs));
}
DEFUN ("subr-name", Fsubr_name, Ssubr_name, 1, 1, 0,
doc: /* Return name of subroutine SUBR.
SUBR must be a built-in function. */)
(subr)
Lisp_Object subr;
{
const char *name;
if (!SUBRP (subr))
wrong_type_argument (Qsubrp, subr);
name = XSUBR (subr)->symbol_name;
return make_string (name, strlen (name));
}
DEFUN ("interactive-form", Finteractive_form, Sinteractive_form, 1, 1, 0,
doc: /* Return the interactive form of CMD or nil if none.
CMD must be a command. Value, if non-nil, is a list
@ -3319,6 +3332,7 @@ syms_of_data ()
defsubr (&Slognot);
defsubr (&Sbyteorder);
defsubr (&Ssubr_arity);
defsubr (&Ssubr_name);
XSYMBOL (Qwholenump)->function = XSYMBOL (Qnatnump)->function;