Mercurial > emacs

changeset 66682:87a503bf036e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-wheel-down-event, mouse-wheel-up-event): Undo previous change.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Fri, 04 Nov 2005 02:15:37 +0000
parents 8c0e5dfc2c31
children b34febff3030
files lisp/mwheel.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mwheel.el	Fri Nov 04 02:02:29 2005 +0000
+++ b/lisp/mwheel.el	Fri Nov 04 02:15:37 2005 +0000
@@ -59,7 +59,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 window-system '(w32 mac))
       'wheel-up
     (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
 		    mouse-wheel-down-button)))
@@ -73,7 +73,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 window-system '(w32 mac))
       'wheel-down
     (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
 		    mouse-wheel-up-button)))