[Emacs-diffs] master 8cbaf34: Fix calculation of tool bar width reported by `frame-geometry' (Bug#24107)

[Martin Rudalics]

branch: master
commit 8cbaf342538fe49f6f064f65717672f8eeb83750
Author: Martin Rudalics <address@hidden>
Commit: Martin Rudalics <address@hidden>

    Fix calculation of tool bar width reported by `frame-geometry' (Bug#24107)
    
    * src/w32fns.c (Fw32_frame_geometry): Fix calculation of tool
    bar width (Bug#24107).  Reindent.
    * src/xfns.c (frame_geometry): Fix calculation of tool bar
    width on non-GTK builds.
---
 src/w32fns.c |   21 +++++++++++----------
 src/xfns.c   |    4 +++-
 2 files changed, 14 insertions(+), 11 deletions(-)

diff --git a/src/w32fns.c b/src/w32fns.c
index 584e311..2b07bb2 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -8465,24 +8465,25 @@ and width values are in pixels.
                Fcons (Qouter_size,
                       Fcons (make_number (right - left),
                              make_number (bottom - top))),
-          Fcons (Qexternal_border_size,
+               Fcons (Qexternal_border_size,
                       Fcons (make_number (external_border_width),
                              make_number (external_border_height))),
                Fcons (Qtitle_bar_size,
                       Fcons (make_number (title_bar_width),
                              make_number (title_bar_height))),
-          Fcons (Qmenu_bar_external, Qt),
-          Fcons (Qmenu_bar_size,
-                 Fcons (make_number
-                        (menu_bar.rcBar.right - menu_bar.rcBar.left),
-                        make_number (menu_bar_height))),
-          Fcons (Qtool_bar_external, Qnil),
+               Fcons (Qmenu_bar_external, Qt),
+               Fcons (Qmenu_bar_size,
+                      Fcons (make_number
+                             (menu_bar.rcBar.right - menu_bar.rcBar.left),
+                             make_number (menu_bar_height))),
+               Fcons (Qtool_bar_external, Qnil),
                Fcons (Qtool_bar_position, tool_bar_height ? Qtop : Qnil),
-          Fcons (Qtool_bar_size,
+               Fcons (Qtool_bar_size,
                       Fcons (make_number
                              (tool_bar_height
-                              ? right - left - 2 * internal_border_width
-                                     : 0),
+                              ? (right - left - 2 * external_border_width
+                                 - 2 * internal_border_width)
+                              : 0),
                              make_number (tool_bar_height))),
                Fcons (Qinternal_border_width,
                       make_number (internal_border_width)));
diff --git a/src/xfns.c b/src/xfns.c
index c44997b..ccea20e 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -4626,7 +4626,9 @@ frame_geometry (Lisp_Object frame, Lisp_Object attribute)
     }
 #else
   tool_bar_height = FRAME_TOOL_BAR_HEIGHT (f);
-  tool_bar_width = tool_bar_height ? native_width : 0;
+  tool_bar_width = (tool_bar_height
+                   ? native_width - 2 * internal_border_width
+                   : 0);
   inner_top += tool_bar_height;
 #endif