Mercurial > hg > xemacs-beta

comparison src/symbols.c @ 3368:959746c534f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-04-29 16:15:21 by aidan] Support builtin functions in find-function.
author aidan
date Sat, 29 Apr 2006 16:15:31 +0000
parents d674024a8674
children b544987e2eca
comparison
equal deleted inserted replaced
3367:84ee3ca77e7f 3368:959746c534f6
717 Ffset (symbol, newdef); 717 Ffset (symbol, newdef);
718 LOADHIST_ATTACH (symbol); 718 LOADHIST_ATTACH (symbol);
719 return newdef; 719 return newdef;
720 } 720 }
721 721
722 DEFUN ("subr-name", Fsubr_name, 1, 1, 0, /*
723 Return name of function SUBR.
724 SUBR must be a built-in function.
725 */
726 (subr))
727 {
728 const char *name;
729 if (!SUBRP (subr))
730 wrong_type_argument (Qsubrp, subr);
731 name = XSUBR (subr)->name;
732 return make_string (name, strlen (name));
733 }
722 734
723 DEFUN ("setplist", Fsetplist, 2, 2, 0, /* 735 DEFUN ("setplist", Fsetplist, 2, 2, 0, /*
724 Set SYMBOL's property list to NEWPLIST, and return NEWPLIST. 736 Set SYMBOL's property list to NEWPLIST, and return NEWPLIST.
725 */ 737 */
726 (symbol, newplist)) 738 (symbol, newplist))
3704 DEFSUBR (Fglobally_boundp); 3716 DEFSUBR (Fglobally_boundp);
3705 DEFSUBR (Ffboundp); 3717 DEFSUBR (Ffboundp);
3706 DEFSUBR (Ffset); 3718 DEFSUBR (Ffset);
3707 DEFSUBR (Fdefine_function); 3719 DEFSUBR (Fdefine_function);
3708 Ffset (intern ("defalias"), intern ("define-function")); 3720 Ffset (intern ("defalias"), intern ("define-function"));
3721 DEFSUBR (Fsubr_name);
3709 DEFSUBR (Fsetplist); 3722 DEFSUBR (Fsetplist);
3710 DEFSUBR (Fsymbol_value_in_buffer); 3723 DEFSUBR (Fsymbol_value_in_buffer);
3711 DEFSUBR (Fsymbol_value_in_console); 3724 DEFSUBR (Fsymbol_value_in_console);
3712 DEFSUBR (Fbuilt_in_variable_type); 3725 DEFSUBR (Fbuilt_in_variable_type);
3713 DEFSUBR (Fsymbol_value); 3726 DEFSUBR (Fsymbol_value);