From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 16 Aug 2009 05:49:26 +0000 (+0000)
Subject: * mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event): Don't
X-Git-Tag: emacs-pretest-23.1.90~1837
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=19261da4e2cdfbe382c931c97c8745727ab8ab4d;p=emacs.git

* mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event): Don't
initialize based on window-system (Bug#4124).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c47ebd92123..955521bb8a0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-08-16  Chong Yidong  <cyd@stupidchicken.com>
 
+	* mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event): Don't
+	initialize based on window-system (Bug#4124).
+
 	* facemenu.el (facemenu-read-color): Use a completion function
 	that accepts any defined color, such as RGB triplets (Bug#3677).
 
diff --git a/lisp/mwheel.el b/lisp/mwheel.el
index 6444ba401d6..37980279a28 100644
--- a/lisp/mwheel.el
+++ b/lisp/mwheel.el
@@ -57,11 +57,9 @@
                         'mouse-wheel-down-event
 			"22.1")
 (defcustom mouse-wheel-down-event
-  ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
-  (if (memq window-system '(w32 ns))
+  (if (or (featurep 'w32-win) (featurep 'ns-win))
       'wheel-up
-    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
-		    mouse-wheel-down-button)))
+    (intern (format "mouse-%s" mouse-wheel-down-button)))
   "Event used for scrolling down."
   :group 'mouse
   :type 'symbol
@@ -72,11 +70,9 @@
                         'mouse-wheel-up-event
 			"22.1")
 (defcustom mouse-wheel-up-event
-  ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
-  (if (memq window-system '(w32 ns))
+  (if (or (featurep 'w32-win) (featurep 'ns-win))
       'wheel-down
-    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
-		    mouse-wheel-up-button)))
+    (intern (format "mouse-%s" mouse-wheel-up-button)))
   "Event used for scrolling up."
   :group 'mouse
   :type 'symbol
@@ -87,9 +83,7 @@
                         'mouse-wheel-click-event
 			"22.1")
 (defcustom mouse-wheel-click-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-click-button))
+  (intern (format "mouse-%s" mouse-wheel-click-button))
   "Event that should be temporarily inhibited after mouse scrolling.
 The mouse wheel is typically on the mouse-2 button, so it may easily
 happen that text is accidentally yanked into the buffer when