Commit c7280fb5 authored by Sam Steingold's avatar Sam Steingold
Browse files

(mouse-wheel-down-event, mouse-wheel-up-event): Use system-type instead

of window-system because window-system is not correctly defined during loadup.
parent aaaa8abb
2005-11-03 Sam Steingold <sds@gnu.org>
* mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event): Use
system-type instead of window-system because window-system is not
correctly defined during loadup.
2005-11-02 Mark A. Hershberger <mah@everybody.org>
 
* xml.el (xml-syntax-table): Allow xml.el to compile in xemacs.
......
......@@ -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)))
......
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