From f5b92c898ab2ab1c5233f25b41c5701bf7592bc9 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 25 Feb 2002 23:48:40 +0000 Subject: [PATCH] (mouse-wheel-mode): Pass vectors instead of symbols to `define-key', since it no longer accepts the latter. --- lisp/ChangeLog | 5 +++++ lisp/mwheel.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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)]) -- 2.39.2