@@ -2571,29 +2571,28 @@ frame_geometry (Lisp_Object frame, Lisp_Object attribute)
2571
2571
make_fixnum (native_bottom - internal_border_width ));
2572
2572
else
2573
2573
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 )));
2597
2596
}
2598
2597
2599
2598
DEFUN ("pgtk-frame-geometry" , Fpgtk_frame_geometry , Spgtk_frame_geometry , 0 , 1 , 0 ,
0 commit comments