diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dcef57f9da9..0c0f0557785 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-02-26 Miles Bader + + * mwheel.el (mouse-wheel-mode): Pass vectors instead of symbols + to `define-key', since it no longer accepts the latter. + 2002-02-25 Jason Rumney * term/w32-win.el (mouse-wheel-scroll-line): Use car of diff --git a/lisp/mwheel.el b/lisp/mwheel.el index 7cb5058e063..4080e7451ed 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el @@ -154,7 +154,7 @@ Returns non-nil if the new state is enabled." (dn (intern (format prefix mouse-wheel-down-button))) (up (intern (format prefix mouse-wheel-up-button))) (keys - (nconc (list dn up) + (nconc (list (vector dn) (vector up)) (mapcar (lambda (amt) `[(,@(car amt) ,up)]) (cdr mouse-wheel-scroll-amount)) (mapcar (lambda (amt) `[(,@(car amt) ,dn)])