No need to bind wheel events specially.
authorJason Rumney <jasonr@gnu.org>
Sun, 1 Jun 2003 22:13:07 +0000 (22:13 +0000)
committerJason Rumney <jasonr@gnu.org>
Sun, 1 Jun 2003 22:13:07 +0000 (22:13 +0000)
lisp/term/w32-win.el

index 923f3f5ea14c3ec2837ddaa68e3906a214102e65..27f72f94129aec73b667d81750359d9bb7649229 100644 (file)
 ;(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."