3648 |
return val; |
return val; |
3649 |
} |
} |
3650 |
|
|
|
|
|
|
/* VARARGS 1 */ |
|
3651 |
Lisp_Object |
Lisp_Object |
3652 |
#ifdef NO_ARG_ARRAY |
format2 (string1, arg0, arg1) |
|
format1 (string1, arg0, arg1, arg2, arg3, arg4) |
|
|
EMACS_INT arg0, arg1, arg2, arg3, arg4; |
|
|
#else |
|
|
format1 (string1) |
|
|
#endif |
|
3653 |
char *string1; |
char *string1; |
3654 |
|
Lisp_Object arg0, arg1; |
3655 |
{ |
{ |
3656 |
char buf[100]; |
Lisp_Object args[3]; |
3657 |
#ifdef NO_ARG_ARRAY |
int numargs; |
3658 |
EMACS_INT args[5]; |
args[0] = build_string (string1); |
3659 |
args[0] = arg0; |
args[1] = arg0; |
3660 |
args[1] = arg1; |
args[2] = arg1; |
3661 |
args[2] = arg2; |
return Fformat (3, args); |
|
args[3] = arg3; |
|
|
args[4] = arg4; |
|
|
doprnt (buf, sizeof buf, string1, (char *)0, 5, (char **) args); |
|
|
#else |
|
|
doprnt (buf, sizeof buf, string1, (char *)0, 5, &string1 + 1); |
|
|
#endif |
|
|
return build_string (buf); |
|
3662 |
} |
} |
3663 |
|
|
3664 |
DEFUN ("char-equal", Fchar_equal, Schar_equal, 2, 2, 0, |
DEFUN ("char-equal", Fchar_equal, Schar_equal, 2, 2, 0, |