diff options
author | Jason Rumney <jasonr@gnu.org> | 2003-06-01 22:13:07 +0000 |
---|---|---|
committer | Jason Rumney <jasonr@gnu.org> | 2003-06-01 22:13:07 +0000 |
commit | 08aadee8ebe8231f2050bf3c7f36041ec938c07c (patch) | |
tree | 85713b1c353f4184c2bdf766b998bd2ac71661c3 | |
parent | 19298a552f3ec8893c42125dbf37a05ae5d338fa (diff) | |
download | emacs-08aadee8ebe8231f2050bf3c7f36041ec938c07c.tar.gz |
No need to bind wheel events specially.
-rw-r--r-- | lisp/term/w32-win.el | 8 |
1 files changed, 1 insertions, 7 deletions
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." |