Mercurial > hg > xemacs-beta

comparison src/symbols.c @ 3497:45671f160bd5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-07-08 09:17:59 by aidan] Style change in subr-name.
author aidan
date Sat, 08 Jul 2006 09:18:01 +0000
parents b544987e2eca
children cdc2f70d4319
comparison
equal deleted inserted replaced
3496:d08f0a2c8722 3497:45671f160bd5
724 SUBR must be a built-in function. 724 SUBR must be a built-in function.
725 */ 725 */
726 (subr)) 726 (subr))
727 { 727 {
728 const char *name; 728 const char *name;
729 if (!SUBRP (subr)) 729 CHECK_SUBR (subr);
730 wrong_type_argument (Qsubrp, subr); 730
731 name = XSUBR (subr)->name; 731 name = XSUBR (subr)->name;
732 return make_string ((const Ibyte *)name, strlen (name)); 732 return make_string ((const Ibyte *)name, strlen (name));
733 } 733 }
734 734
735 DEFUN ("setplist", Fsetplist, 2, 2, 0, /* 735 DEFUN ("setplist", Fsetplist, 2, 2, 0, /*