diff options
| author | Jason Rumney <jasonr@gnu.org> | 2003-06-01 22:14:30 +0000 |
|---|---|---|
| committer | Jason Rumney <jasonr@gnu.org> | 2003-06-01 22:14:30 +0000 |
| commit | f4e622607979b1ff54ddef148824fc0e8f559745 (patch) | |
| tree | 941c08fa3c1ac8081cd767c6c6cba4d69743ecd3 /lisp/mwheel.el | |
| parent | 230c8ad7bfef2596c5c4ccec59895f29c89a7407 (diff) | |
| download | emacs-f4e622607979b1ff54ddef148824fc0e8f559745.tar.gz | |
(mouse-wheel-down-event, mouse-wheel-up-event):
Default to new wheel-up and wheel-down events on Windows.
Diffstat (limited to 'lisp/mwheel.el')
| -rw-r--r-- | lisp/mwheel.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/mwheel.el b/lisp/mwheel.el index 850642c37ab..2ebb10c3073 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el @@ -58,8 +58,10 @@ 'mouse-wheel-down-event) (defcustom mouse-wheel-down-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-down-button)) + (if (eq system-type 'windows-nt) + 'wheel-up + (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") + mouse-wheel-down-button))) "Event used for scrolling down." :group 'mouse :type 'symbol @@ -70,8 +72,10 @@ 'mouse-wheel-up-event) (defcustom mouse-wheel-up-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-up-button)) + (if (eq system-type 'windows-nt) + 'wheel-down + (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") + mouse-wheel-up-button))) "Event used for scrolling down." :group 'mouse :type 'symbol |