Mercurial > hg > xemacs-beta

comparison src/data.c @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents e45d5e7c476e
children 78478c60bfcd
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
378 nargs = XSUBR (subr)->max_args; 378 nargs = XSUBR (subr)->max_args;
379 if (nargs == MANY || nargs == UNEVALLED) 379 if (nargs == MANY || nargs == UNEVALLED)
380 return Qnil; 380 return Qnil;
381 else 381 else
382 return make_int (nargs); 382 return make_int (nargs);
383 }
384
385 DEFUN ("subr-interactive", Fsubr_interactive, 1, 1, 0, /*
386 Return the interactive spec of the subr object, or nil.
387 If non-nil, the return value will be a list whose first element is
388 `interactive' and whose second element is the interactive spec.
389 */
390 (subr))
391 {
392 CONST char *prompt;
393 CHECK_SUBR (subr);
394 prompt = XSUBR (subr)->prompt;
395 return prompt ? list2 (Qinteractive, build_string (prompt)) : Qnil;
383 } 396 }
384 397
385 DEFUN ("compiled-function-p", Fcompiled_function_p, 1, 1, 0, /* 398 DEFUN ("compiled-function-p", Fcompiled_function_p, 1, 1, 0, /*
386 t if OBJECT is a byte-compiled function object. 399 t if OBJECT is a byte-compiled function object.
387 */ 400 */
2301 DEFSUBR (Fsequencep); 2314 DEFSUBR (Fsequencep);
2302 DEFSUBR (Fmarkerp); 2315 DEFSUBR (Fmarkerp);
2303 DEFSUBR (Fsubrp); 2316 DEFSUBR (Fsubrp);
2304 DEFSUBR (Fsubr_min_args); 2317 DEFSUBR (Fsubr_min_args);
2305 DEFSUBR (Fsubr_max_args); 2318 DEFSUBR (Fsubr_max_args);
2319 DEFSUBR (Fsubr_interactive);
2306 DEFSUBR (Fcompiled_function_p); 2320 DEFSUBR (Fcompiled_function_p);
2307 DEFSUBR (Ftype_of); 2321 DEFSUBR (Ftype_of);
2308 DEFSUBR (Fcar); 2322 DEFSUBR (Fcar);
2309 DEFSUBR (Fcdr); 2323 DEFSUBR (Fcdr);
2310 DEFSUBR (Fcar_safe); 2324 DEFSUBR (Fcar_safe);