diff options
| author | Yuuki Harano <masm+github@masm11.me> | 2019-04-03 21:45:37 +0900 |
|---|---|---|
| committer | Jeff Walsh <fejfighter@gmail.com> | 2020-11-22 14:46:55 +1100 |
| commit | 53cb4316396586ffaa91191af4ae9c55687444f2 (patch) | |
| tree | 4482786bb270bbe54893cc75b30a55239a39de62 | |
| parent | a9c8a56ba1fdbb6645ddebdabbb826993b6dca23 (diff) | |
| download | emacs-53cb4316396586ffaa91191af4ae9c55687444f2.tar.gz emacs-53cb4316396586ffaa91191af4ae9c55687444f2.tar.bz2 emacs-53cb4316396586ffaa91191af4ae9c55687444f2.zip | |
replace listn with list.
* ../src/pgtkfns.c (frame_geometry):
replace listn with list.
| -rw-r--r-- | src/pgtkfns.c | 45 |
1 files changed, 22 insertions, 23 deletions
diff --git a/src/pgtkfns.c b/src/pgtkfns.c index b08b81a885c..dd450a40bf9 100644 --- a/src/pgtkfns.c +++ b/src/pgtkfns.c @@ -2390,29 +2390,28 @@ frame_geometry (Lisp_Object frame, Lisp_Object attribute) make_fixnum (native_bottom - internal_border_width)); else return - listn (CONSTYPE_HEAP, 10, - Fcons (Qouter_position, - Fcons (make_fixnum (f->left_pos), - make_fixnum (f->top_pos))), - Fcons (Qouter_size, - Fcons (make_fixnum (outer_width), - make_fixnum (outer_height))), - Fcons (Qexternal_border_size, - (fullscreen - ? Fcons (make_fixnum (0), make_fixnum (0)) - : Fcons (make_fixnum (border), make_fixnum (border)))), - Fcons (Qtitle_bar_size, - Fcons (make_fixnum (0), make_fixnum (title_height))), - Fcons (Qmenu_bar_external, Qnil), - Fcons (Qmenu_bar_size, Fcons (make_fixnum (0), make_fixnum (0))), - Fcons (Qtool_bar_external, - FRAME_EXTERNAL_TOOL_BAR (f) ? Qt : Qnil), - Fcons (Qtool_bar_position, FRAME_TOOL_BAR_POSITION (f)), - Fcons (Qtool_bar_size, - Fcons (make_fixnum (tool_bar_width), - make_fixnum (tool_bar_height))), - Fcons (Qinternal_border_width, - make_fixnum (internal_border_width))); + list (Fcons (Qouter_position, + Fcons (make_fixnum (f->left_pos), + make_fixnum (f->top_pos))), + Fcons (Qouter_size, + Fcons (make_fixnum (outer_width), + make_fixnum (outer_height))), + Fcons (Qexternal_border_size, + (fullscreen + ? Fcons (make_fixnum (0), make_fixnum (0)) + : Fcons (make_fixnum (border), make_fixnum (border)))), + Fcons (Qtitle_bar_size, + Fcons (make_fixnum (0), make_fixnum (title_height))), + Fcons (Qmenu_bar_external, Qnil), + Fcons (Qmenu_bar_size, Fcons (make_fixnum (0), make_fixnum (0))), + Fcons (Qtool_bar_external, + FRAME_EXTERNAL_TOOL_BAR (f) ? Qt : Qnil), + Fcons (Qtool_bar_position, FRAME_TOOL_BAR_POSITION (f)), + Fcons (Qtool_bar_size, + Fcons (make_fixnum (tool_bar_width), + make_fixnum (tool_bar_height))), + Fcons (Qinternal_border_width, + make_fixnum (internal_border_width))); } DEFUN ("pgtk-frame-geometry", Fpgtk_frame_geometry, Spgtk_frame_geometry, 0, 1, 0, |