No need to bind wheel events specially.

diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index c3777410a40731f3949795dcbca16a6bc1dd3e90..f9712a5a52faa0cc3b2482a42d7df0fca84fe262 100644 (file)
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -241,10 +241,7 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman")
                           global-map)
 
 ;; Support mouse-wheel scrolling
-(autoload 'mwheel-scroll "mwheel")
-(global-set-key [mouse-wheel] 'mwheel-scroll)
-(global-set-key [C-mouse-wheel] 'mwheel-scroll)
-(global-set-key [S-mouse-wheel] 'mwheel-scroll)
+(mouse-wheel-mode 1)
 
 ;; (prefer-coding-system 'mac-roman)