bug#37609: Tool-bar-mode grows the frame's height

[Juri Linkov]

>> In Lucid
>>
>> (frame-height)
>> 38
>
> This should be 36 and is 36 here.  What does (frame-height) give right
> after you started Emacs with
>
> emacs -Q -f tool-bar-mode
>
> and before you do
>
> (let ((initial (assq 'outer-size (frame-geometry))))
>   (tool-bar-mode 1)
>   (tool-bar-mode 0)
>   (list (assq 'outer-size (frame-geometry)) initial))

Sorry for the mess.  Actually, in Lucid emacs -Q -f tool-bar-mode:

(frame-height)
36

(let ((initial (assq 'outer-size (frame-geometry))))
  (tool-bar-mode 1)
  (tool-bar-mode 0)
  (list (assq 'outer-size (frame-geometry)) initial))
((outer-size 696 . 687) (outer-size 696 . 687))

(frame-height)
36