From: Jason Rumney <jasonr@gnu.org>
Date: Sun, 1 Jun 2003 22:13:07 +0000 (+0000)
Subject: No need to bind wheel events specially.
X-Git-Tag: ttn-vms-21-2-B4~9808
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=230c8ad7bfef2596c5c4ccec59895f29c89a7407;p=emacs.git

No need to bind wheel events specially.
---

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 923f3f5ea14..27f72f94129 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -84,13 +84,7 @@
 ;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event))
 
 ;; Handle mouse-wheel events with mwheel.
-;; Normally only mouse-wheel-mode and mwheel-install are autoloaded,
-;; but binding mouse-wheel must be done directly, since those functions
-;; do not recognize mouse-wheel as a valid button.
-(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)
 
 (defun w32-drag-n-drop-debug (event)
   "Print the drag-n-drop EVENT in a readable form."