# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1014680769 0
# Node ID 40d7df9af3551c0ca26b0ae5d1cf056ff235864e
# Parent  809c9be7bf38de7f28ef180e3b696018b398c4f3
(mouse-wheel-mode): Pass vectors instead of symbols
to `define-key', since it no longer accepts the latter.

diff -r 809c9be7bf38 -r 40d7df9af355 lisp/mwheel.el
--- a/lisp/mwheel.el	Mon Feb 25 23:26:38 2002 +0000
+++ b/lisp/mwheel.el	Mon Feb 25 23:46:09 2002 +0000
@@ -154,7 +154,7 @@
          (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)])