From f4e622607979b1ff54ddef148824fc0e8f559745 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Sun, 1 Jun 2003 22:14:30 +0000 Subject: [PATCH] (mouse-wheel-down-event, mouse-wheel-up-event): Default to new wheel-up and wheel-down events on Windows. --- lisp/ChangeLog | 7 +++++++ lisp/mwheel.el | 12 ++++++++---- 2 files changed, 15 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d936d62026f..fd22af842bb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2003-06-01 Jason Rumney + + * mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event): + Default to new wheel-up and wheel-down events on Windows. + + * term/w32-win.el: No need to bind wheel events specially. + 2003-06-01 Michael Kifer * desktop.el (desktop-create-buffer): Added (desktop-first-buffer) to 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