Commit f5b92c89 authored by Miles Bader's avatar Miles Bader
Browse files

(mouse-wheel-mode): Pass vectors instead of symbols

to `define-key', since it no longer accepts the latter.
parent ed81ee80
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> 2002-02-25 Jason Rumney <jasonr@gnu.org>
   
* term/w32-win.el (mouse-wheel-scroll-line): Use car of * term/w32-win.el (mouse-wheel-scroll-line): Use car of
......
...@@ -154,7 +154,7 @@ Returns non-nil if the new state is enabled." ...@@ -154,7 +154,7 @@ Returns non-nil if the new state is enabled."
(dn (intern (format prefix mouse-wheel-down-button))) (dn (intern (format prefix mouse-wheel-down-button)))
(up (intern (format prefix mouse-wheel-up-button))) (up (intern (format prefix mouse-wheel-up-button)))
(keys (keys
(nconc (list dn up) (nconc (list (vector dn) (vector up))
(mapcar (lambda (amt) `[(,@(car amt) ,up)]) (mapcar (lambda (amt) `[(,@(car amt) ,up)])
(cdr mouse-wheel-scroll-amount)) (cdr mouse-wheel-scroll-amount))
(mapcar (lambda (amt) `[(,@(car amt) ,dn)]) (mapcar (lambda (amt) `[(,@(car amt) ,dn)])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment