Skip to content

Commit 4a479e8

Browse files
author
Yuuki Harano
committed
replace listn with list.
1 parent b1e43d4 commit 4a479e8

File tree

1 file changed

+22
-23
lines changed

1 file changed

+22
-23
lines changed

src/pgtkfns.c

Lines changed: 22 additions & 23 deletions
Original file line numberDiff line numberDiff line change
@@ -2571,29 +2571,28 @@ frame_geometry (Lisp_Object frame, Lisp_Object attribute)
25712571
make_fixnum (native_bottom - internal_border_width));
25722572
else
25732573
return
2574-
listn (CONSTYPE_HEAP, 10,
2575-
Fcons (Qouter_position,
2576-
Fcons (make_fixnum (f->left_pos),
2577-
make_fixnum (f->top_pos))),
2578-
Fcons (Qouter_size,
2579-
Fcons (make_fixnum (outer_width),
2580-
make_fixnum (outer_height))),
2581-
Fcons (Qexternal_border_size,
2582-
(fullscreen
2583-
? Fcons (make_fixnum (0), make_fixnum (0))
2584-
: Fcons (make_fixnum (border), make_fixnum (border)))),
2585-
Fcons (Qtitle_bar_size,
2586-
Fcons (make_fixnum (0), make_fixnum (title_height))),
2587-
Fcons (Qmenu_bar_external, Qnil),
2588-
Fcons (Qmenu_bar_size, Fcons (make_fixnum (0), make_fixnum (0))),
2589-
Fcons (Qtool_bar_external,
2590-
FRAME_EXTERNAL_TOOL_BAR (f) ? Qt : Qnil),
2591-
Fcons (Qtool_bar_position, FRAME_TOOL_BAR_POSITION (f)),
2592-
Fcons (Qtool_bar_size,
2593-
Fcons (make_fixnum (tool_bar_width),
2594-
make_fixnum (tool_bar_height))),
2595-
Fcons (Qinternal_border_width,
2596-
make_fixnum (internal_border_width)));
2574+
list (Fcons (Qouter_position,
2575+
Fcons (make_fixnum (f->left_pos),
2576+
make_fixnum (f->top_pos))),
2577+
Fcons (Qouter_size,
2578+
Fcons (make_fixnum (outer_width),
2579+
make_fixnum (outer_height))),
2580+
Fcons (Qexternal_border_size,
2581+
(fullscreen
2582+
? Fcons (make_fixnum (0), make_fixnum (0))
2583+
: Fcons (make_fixnum (border), make_fixnum (border)))),
2584+
Fcons (Qtitle_bar_size,
2585+
Fcons (make_fixnum (0), make_fixnum (title_height))),
2586+
Fcons (Qmenu_bar_external, Qnil),
2587+
Fcons (Qmenu_bar_size, Fcons (make_fixnum (0), make_fixnum (0))),
2588+
Fcons (Qtool_bar_external,
2589+
FRAME_EXTERNAL_TOOL_BAR (f) ? Qt : Qnil),
2590+
Fcons (Qtool_bar_position, FRAME_TOOL_BAR_POSITION (f)),
2591+
Fcons (Qtool_bar_size,
2592+
Fcons (make_fixnum (tool_bar_width),
2593+
make_fixnum (tool_bar_height))),
2594+
Fcons (Qinternal_border_width,
2595+
make_fixnum (internal_border_width)));
25972596
}
25982597

25992598
DEFUN ("pgtk-frame-geometry", Fpgtk_frame_geometry, Spgtk_frame_geometry, 0, 1, 0,

0 commit comments

Comments
 (0)