bug#16306: 24.3.50; font change creates blank column on Lucid

[YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>]

>>>>> On Tue, 31 Dec 2013 12:33:45 +0100, martin rudalics <rudalics@gmx.at> said:

>> Resized.  Evaluation of (frame-pixel-width) gives different results
>> between Lucid and non-toolkit:

> Is it better now?  I had some shelved fixes and couldn't reproduce
> it so I installed them.

It no longer shows a blank column.  But for the Lucid case, the value
of (frame-width) is reduced from 80 to 79 (and 80th column is
partially shown) when I change the frame font to Courier-18.

				     YAMAMOTO Mitsuharu
				mituharu@math.s.chiba-u.ac.jp

Lucid:
(list (frame-width) (frame-pixel-width))
=> (80 674)
(+ (* (frame-char-width) 80) (frame-fringe-width)
(frame-scroll-bar-width)
   (* (frame-parameter nil 'internal-border-width) 2))
=> 674
(set-frame-font "Courier-18")
(list (frame-width) (frame-pixel-width))
=> (79 1162)
(+ (* (frame-char-width) 80) (frame-fringe-width)
(frame-scroll-bar-width)
   (* (frame-parameter nil 'internal-border-width) 2))
=> 1166


Non-toolkit:
(list (frame-width) (frame-pixel-width))
=> (80 674)
(+ (* (frame-char-width) 80) (frame-fringe-width)
(frame-scroll-bar-width)
   (* (frame-parameter nil 'internal-border-width) 2))
=> 674
(set-frame-font "Courier-18")
(list (frame-width) (frame-pixel-width))
=> (80 1166)
(+ (* (frame-char-width) 80) (frame-fringe-width)
(frame-scroll-bar-width)
   (* (frame-parameter nil 'internal-border-width) 2))
=> 1166


GTK+:
(list (frame-width) (frame-pixel-width))
=> (80 672)
(+ (* (frame-char-width) 80) (frame-fringe-width)
(frame-scroll-bar-width)
   (* (frame-parameter nil 'internal-border-width) 2))
=> 672
(set-frame-font "Courier-18")
(list (frame-width) (frame-pixel-width))
=> (80 1164)
(+ (* (frame-char-width) 80) (frame-fringe-width)
(frame-scroll-bar-width)
   (* (frame-parameter nil 'internal-border-width) 2))
=> 1164