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

[Stefan Kangas]

Eli Zaretskii <eliz@gnu.org> writes:

> Please step with Edebug into global-text-scale-adjust, and tell what
> do you see in the variable 'key' in the following fragment from the
> command:
>
>     (let* ((key (event-basic-type last-command-event))

On the first invocation of 'global-text-scale-adjust':

last-command-event: 13 (#o15, #xd, ?\C-m)
key: 109 (#o155, #x6d, ?m)

When I then type '-', I see:

last-command-event: 45 (#o55, #x2d, ?-)
key: 45 (#o55, #x2d, ?-)

>            (echo-keystrokes nil)
>            (cur (face-attribute 'default :height))
>            (inc
>             (pcase key
>               (?- (* (- increment) 5))
>               (?0 (- global-text-scale-adjust--default-height cur))
>               (_ (* increment 5))))