From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 14 Jan 2004 14:22:17 +0000 (+0000)
Subject: (mouse-wheel-down-event, mouse-wheel-up-event):
X-Git-Tag: ttn-vms-21-2-B4~7938
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf062f6b5fe30ba71d8654b19441a2791e460320;p=emacs.git

(mouse-wheel-down-event, mouse-wheel-up-event):
Test window-system rather than system-type (for X11/Mac).
---

diff --git a/lisp/mwheel.el b/lisp/mwheel.el
index de47081b84f..0194160bcf4 100644
--- a/lisp/mwheel.el
+++ b/lisp/mwheel.el
@@ -58,7 +58,7 @@
                         'mouse-wheel-down-event)
 (defcustom mouse-wheel-down-event
   ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
-  (if (memq system-type '(windows-nt macos darwin))
+  (if (memq window-system '(w32 mac))
       'wheel-up
     (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
 		    mouse-wheel-down-button)))
@@ -72,7 +72,7 @@
                         'mouse-wheel-up-event)
 (defcustom mouse-wheel-up-event
   ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
-  (if (memq system-type '(windows-nt macos darwin))
+  (if (memq window-system '(w32 mac))
       'wheel-down
     (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
 		    mouse-wheel-up-button)))