From: Miles Bader <miles@gnu.org>
Date: Mon, 25 Feb 2002 23:48:40 +0000 (+0000)
Subject: (mouse-wheel-mode): Pass vectors instead of symbols
X-Git-Tag: ttn-vms-21-2-B4~16468
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f5b92c898ab2ab1c5233f25b41c5701bf7592bc9;p=emacs.git

(mouse-wheel-mode): Pass vectors instead of symbols
to `define-key', since it no longer accepts the latter.
---

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  <miles@gnu.org>
+
+	* 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  <jasonr@gnu.org>
 
 	* 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)])