martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
of window-system because window-system is not correctly defined during loadup.
This commit is contained in:
Sam Steingold
2005-11-03 14:35:26 +00:00
parent aaaa8abbd0
commit c7280fb559
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@@ -1,3 +1,9 @@
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.

4
lisp/mwheel.el
View File

@@ -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)))