diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-01-14 14:22:17 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-01-14 14:22:17 +0000 |
| commit | cf062f6b5fe30ba71d8654b19441a2791e460320 (patch) | |
| tree | ea25a5f9ada14cfdb5059d245fae728e5e426a7e /lisp/mwheel.el | |
| parent | 074eb6acbee2152dd524d50e2b4def2507a6d7db (diff) | |
| download | emacs-cf062f6b5fe30ba71d8654b19441a2791e460320.tar.gz | |
(mouse-wheel-down-event, mouse-wheel-up-event):
Test window-system rather than system-type (for X11/Mac).
Diffstat (limited to 'lisp/mwheel.el')
| -rw-r--r-- | lisp/mwheel.el | 4 |
1 files changed, 2 insertions, 2 deletions
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))) |