diff options
| author | Jason Rumney | 2003-06-07 00:24:41 +0000 |
|---|---|---|
| committer | Jason Rumney | 2003-06-07 00:24:41 +0000 |
| commit | fac7d58b876d55b20a0aa630c4f69204178f8e89 (patch) | |
| tree | 61d0518edccf61e58e6ab861c46a23505c2fe5b4 | |
| parent | 65419ab2e97c60df76b3c213c9bfe56969667ff8 (diff) | |
| download | emacs-fac7d58b876d55b20a0aa630c4f69204178f8e89.tar.gz emacs-fac7d58b876d55b20a0aa630c4f69204178f8e89.zip | |
(mouse-wheel-up-event, mouse-wheel-down-event):
Use wheel-* events on darwin.
| -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 36587574523..47ec9a0eaff 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el | |||
| @@ -58,7 +58,7 @@ | |||
| 58 | 'mouse-wheel-down-event) | 58 | 'mouse-wheel-down-event) |
| 59 | (defcustom mouse-wheel-down-event | 59 | (defcustom mouse-wheel-down-event |
| 60 | ;; In the latest versions of XEmacs, we could just use mouse-%s as well. | 60 | ;; In the latest versions of XEmacs, we could just use mouse-%s as well. |
| 61 | (if (memq system-type '(windows-nt macos)) | 61 | (if (memq system-type '(windows-nt macos darwin)) |
| 62 | 'wheel-up | 62 | 'wheel-up |
| 63 | (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") | 63 | (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
| 64 | mouse-wheel-down-button))) | 64 | mouse-wheel-down-button))) |
| @@ -72,7 +72,7 @@ | |||
| 72 | 'mouse-wheel-up-event) | 72 | 'mouse-wheel-up-event) |
| 73 | (defcustom mouse-wheel-up-event | 73 | (defcustom mouse-wheel-up-event |
| 74 | ;; In the latest versions of XEmacs, we could just use mouse-%s as well. | 74 | ;; In the latest versions of XEmacs, we could just use mouse-%s as well. |
| 75 | (if (memq system-type '(windows-nt macos)) | 75 | (if (memq system-type '(windows-nt macos darwin)) |
| 76 | 'wheel-down | 76 | 'wheel-down |
| 77 | (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") | 77 | (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
| 78 | mouse-wheel-up-button))) | 78 | mouse-wheel-up-button))) |