From: Jason Rumney <jasonr@gnu.org>
Date: Sun, 1 Jun 2003 22:14:30 +0000 (+0000)
Subject: (mouse-wheel-down-event, mouse-wheel-up-event):
X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/f4e622607979b1ff54ddef148824fc0e8f559745

(mouse-wheel-down-event, mouse-wheel-up-event):
Default to new wheel-up and wheel-down events on Windows.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d936d62026..fd22af842b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-06-01  Jason Rumney  <jasonr@gnu.org>
+
+	* mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event):
+	Default to new wheel-up and wheel-down events on Windows.
+
+	* term/w32-win.el: No need to bind wheel events specially.
+
 2003-06-01  Michael Kifer  <kifer@cs.stonybrook.edu>
 	
 	* desktop.el (desktop-create-buffer): Added (desktop-first-buffer) to
diff --git a/lisp/mwheel.el b/lisp/mwheel.el
index 850642c37a..2ebb10c307 100644
--- a/lisp/mwheel.el
+++ b/lisp/mwheel.el
@@ -58,8 +58,10 @@
                         'mouse-wheel-down-event)
 (defcustom mouse-wheel-down-event
   ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
-  (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
-		  mouse-wheel-down-button))
+  (if (eq system-type 'windows-nt)
+      'wheel-up
+    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
+		    mouse-wheel-down-button)))
   "Event used for scrolling down."
   :group 'mouse
   :type 'symbol
@@ -70,8 +72,10 @@
                         'mouse-wheel-up-event)
 (defcustom mouse-wheel-up-event
   ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
-  (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
-		  mouse-wheel-up-button))
+  (if (eq system-type 'windows-nt)
+      'wheel-down
+    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
+		    mouse-wheel-up-button)))
   "Event used for scrolling down."
   :group 'mouse
   :type 'symbol