]> git.eshelyaron.com Git - emacs.git/commitdiff
(Fsubr_name): New fun.
authorStefan Monnier <monnier@iro.umontreal.ca>
Thu, 29 Apr 2004 18:21:48 +0000 (18:21 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Thu, 29 Apr 2004 18:21:48 +0000 (18:21 +0000)
(syms_of_data): Defsubr it.

src/ChangeLog
src/data.c

index 386c3d99a4722218c1a4f3605a51219d7ec7e738..9be37a3853162fa11d092f93b6d00860cf30af36 100644 (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.
index a5f283756358f22c5894347cd1125c48ba37bb5b..c94723d09d061babe0c41012aaea392d007e6c45 100644 (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;