bug#59122: 29.0.50; global-text-scale-adjust not working

[Stefan Kangas]

Robert Pluim <rpluim@gmail.com> writes:

> >>>>> On Wed, 9 Nov 2022 15:30:15 +0100, Stefan Kangas 
> >>>>> <stefankangas@gmail.com> said:
>     Stefan> With
>
>     Stefan> (set-face-attribute 'default nil :height (- (face-attribute 
> 'default
>     Stefan> :height) 6))
>
>     Stefan> the font size is decreased.  If I evaluate it more than once, the 
> font
>     Stefan> size decreases more with each additional invocation.
>
> But it actually decreases by 10, right? (and similarly for increases)

It would seem so:

(cons (face-attribute 'default :height)
      (progn
    (set-face-attribute 'default nil
                :height (- (face-attribute 'default :height) 6))
    (face-attribute 'default :height)))
=> (120 . 110)

With 'global-text-scale-adjust', in a fresh emacs -Q, I see that:

(cons (face-attribute 'default :height)
      (progn
    (global-text-scale-adjust 1)
    (face-attribute 'default :height)))
=> (120 . 130)