diff options
| author | Sam Steingold <sds@gnu.org> | 2005-11-03 14:35:26 +0000 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2005-11-03 14:35:26 +0000 |
| commit | c7280fb559080f4f7a239fa2de41802bb409d322 (patch) | |
| tree | d190ea53194d2038514d86be1d6e2da9f887e571 /lisp/mwheel.el | |
| parent | aaaa8abbd0247a37addc0907ac24a3eafedbd909 (diff) | |
| download | emacs-c7280fb559080f4f7a239fa2de41802bb409d322.tar.gz | |
(mouse-wheel-down-event, mouse-wheel-up-event): Use system-type instead
of window-system because window-system is not correctly defined during loadup.
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 391ce3a5e04..c4e604bfd6e 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el @@ -59,7 +59,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 window-system '(w32 mac)) + (if (memq system-type '(windows-nt macos)) 'wheel-up (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") mouse-wheel-down-button))) @@ -73,7 +73,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 window-system '(w32 mac)) + (if (memq system-type '(windows-nt macos)) 'wheel-down (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") mouse-wheel-up-button))) |