* src/macfont.m (macfont_set_family_cache):
* src/nsterm.m (append2):
* src/xterm.c (x_cr_export_frames):
Prefer CALLN to allocating the arg arrays by hand.
Lisp_Object value;
if (!HASH_TABLE_P (macfont_family_cache))
Lisp_Object value;
if (!HASH_TABLE_P (macfont_family_cache))
- {
- Lisp_Object args[2];
-
- args[0] = QCtest;
- args[1] = Qeq;
- macfont_family_cache = Fmake_hash_table (2, args);
- }
+ macfont_family_cache = CALLN (Fmake_hash_table, QCtest, Qeq);
h = XHASH_TABLE (macfont_family_cache);
i = hash_lookup (h, symbol, &hash);
h = XHASH_TABLE (macfont_family_cache);
i = hash_lookup (h, symbol, &hash);
Utility to append to a list
-------------------------------------------------------------------------- */
{
Utility to append to a list
-------------------------------------------------------------------------- */
{
- Lisp_Object array[2];
- array[0] = list;
- array[1] = list1 (item);
- return Fnconc (2, &array[0]);
+ return CALLN (Fnconc, list, list1 (item));
cairo_t *cr;
int width, height;
void (*surface_set_size_func) (cairo_surface_t *, double, double) = NULL;
cairo_t *cr;
int width, height;
void (*surface_set_size_func) (cairo_surface_t *, double, double) = NULL;
- Lisp_Object acc = Qnil, args[2];
+ Lisp_Object acc = Qnil;
int count = SPECPDL_INDEX ();
Fredisplay (Qt);
int count = SPECPDL_INDEX ();
Fredisplay (Qt);
#endif
unbind_to (count, Qnil);
#endif
unbind_to (count, Qnil);
- args[0] = intern ("concat");
- args[1] = Fnreverse (acc);
- return Fapply (2, args);
+ return CALLN (Fapply, intern ("concat"), Fnreverse (acc));