From fac7d58b876d55b20a0aa630c4f69204178f8e89 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Sat, 7 Jun 2003 00:24:41 +0000 Subject: [PATCH] (mouse-wheel-up-event, mouse-wheel-down-event): Use wheel-* events on darwin. --- lisp/mwheel.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mwheel.el b/lisp/mwheel.el index 36587574523..47ec9a0eaff 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)) + (if (memq system-type '(windows-nt macos darwin)) '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)) + (if (memq system-type '(windows-nt macos darwin)) 'wheel-down (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") mouse-wheel-up-button))) -- 2.39.5