changeset 51387:97d539e7d0d1

(mouse-wheel-down-event, mouse-wheel-up-event): Default to new wheel-up and wheel-down events on Windows.
author Jason Rumney <jasonr@gnu.org>
date Sun, 01 Jun 2003 22:13:30 +0000
parents c750333d879e
children 044221b8057a
files lisp/mwheel.el
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mwheel.el	Sun Jun 01 22:13:07 2003 +0000
+++ b/lisp/mwheel.el	Sun Jun 01 22:13:30 2003 +0000
@@ -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