mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

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

Browse Source 
to `define-key', since it no longer accepts the latter.
This commit is contained in:
Miles Bader 2002-02-25 23:48:40 +00:00
parent ed81ee80f5
commit f5b92c898a
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

2
lisp/mwheel.el
View File

@ -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)])