Re: mouse-wheel mode (and probably other stuff) broken due to use of global-map

[Stefan Monnier]

> -                (define-key global-map key 'mwheel-scroll))
> -               ((eq (lookup-key global-map key) 'mwheel-scroll)
> -                (define-key global-map key nil))))
> +                (define-key (current-global-map) key 'mwheel-scroll))
> +               ((eq (lookup-key (current-global-map) key) 'mwheel-scroll)
> +                (define-key (current-global-map) key nil))))
>         (error nil))))

I'd use `global-set-key' since that's what it's for after all.


        Stefan