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

[Tim Van Holder]

Pavel Janík wrote:
>    > 
>    > I'd use `global-set-key' since that's what it's for after all.
>
> Yes. Can anyone test the following change?
>
> --- mwheel.el.~1.11.~   Sun Mar 24 15:52:02 2002
> +++ mwheel.el   Sun Mar 24 19:25:25 2002
> @@ -169,9 +169,9 @@
>      (condition-case ()
>         (dolist (key keys)
>           (cond (mouse-wheel-mode
> -                (define-key (current-global-map) key 'mwheel-scroll))
> +                (global-set-key key 'mwheel-scroll))
>                 ((eq (lookup-key (current-global-map) key) 'mwheel-scroll)
> -                (define-key (current-global-map) key nil))))
> +                (global-unset-key key))))
>        (error nil))))
>  

Seems to work fine (that is, the mouse wheel does what it's supposed to do).

--
Tim Van Holder <mailto:address@hidden>
Anubex         <http://www.anubex.com>
Telephone: +32 3 450 42 32              Fax: +32 3 450 42 51