Skip to content

GitLab

Commit 29832d73 authored by Jason Rumney's avatar Jason Rumney
Browse files

(mouse-wheel-down-event, mouse-wheel-up-event): 

Default to new wheel-up and wheel-down events on MacOS.
parent c6ff5a4c
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
lisp/mwheel.el
View file @ 29832d73
......@@ -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 (eq system-type 'windows-nt)
(if (memq system-type '(windows-nt macos))
'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 (eq system-type 'windows-nt)
(if (memq system-type '(windows-nt macos))
'wheel-down
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
mouse-wheel-up-button)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment