# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1054945481 0
# Node ID 9dde64573e67174c3561c7b0b90e6b69589e419a
# Parent  0fa152ebcaf398f102575dedbcf9081bc147ee74
(mouse-wheel-up-event, mouse-wheel-down-event):
Use wheel-* events on darwin.

diff -r 0fa152ebcaf3 -r 9dde64573e67 lisp/mwheel.el
--- a/lisp/mwheel.el	Sat Jun 07 00:24:22 2003 +0000
+++ b/lisp/mwheel.el	Sat Jun 07 00:24:41 2003 +0000
@@ -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))
+  (if (memq system-type '(windows-nt macos darwin))
       '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))
+  (if (memq system-type '(windows-nt macos darwin))
       'wheel-down
     (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
 		    mouse-wheel-up-button)))