diff options
| author | Jason Rumney <jasonr@gnu.org> | 2003-06-04 21:53:00 +0000 |
|---|---|---|
| committer | Jason Rumney <jasonr@gnu.org> | 2003-06-04 21:53:00 +0000 |
| commit | 29832d73b8c7299e4e60396db9bdf2059a6ef254 (patch) | |
| tree | 0496c391823e27348bee554f4eef72f3c9696c2d /lisp/mwheel.el | |
| parent | c6ff5a4c80175b5ab06b425f423770c2cc7ca2a9 (diff) | |
| download | emacs-29832d73b8c7299e4e60396db9bdf2059a6ef254.tar.gz | |
(mouse-wheel-down-event, mouse-wheel-up-event):
Default to new wheel-up and wheel-down events on MacOS.
Diffstat (limited to 'lisp/mwheel.el')
| -rw-r--r-- | lisp/mwheel.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mwheel.el b/lisp/mwheel.el index 2ebb10c3073..36587574523 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 (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))) |