Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
29832d73
Commit
29832d73
authored
Jun 04, 2003
by
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
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
lisp/mwheel.el
lisp/mwheel.el
+2
-2
No files found.
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
(
e
q
system-type
'windows-nt
)
(
if
(
mem
q
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
(
e
q
system-type
'windows-nt
)
(
if
(
mem
q
system-type
'
(
windows-nt
macos
)
)
'wheel-down
(
intern
(
format
(
if
(
featurep
'xemacs
)
"button%s"
"mouse-%s"
)
mouse-wheel-up-button
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment