mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-25 10:47:00 +00:00
(mouse-wheel-down-event, mouse-wheel-up-event):
Default to new wheel-up and wheel-down events on Windows.
This commit is contained in:
parent
230c8ad7bf
commit
f4e6226079
@ -1,3 +1,10 @@
|
||||
2003-06-01 Jason Rumney <jasonr@gnu.org>
|
||||
|
||||
* mwheel.el (mouse-wheel-down-event, mouse-wheel-up-event):
|
||||
Default to new wheel-up and wheel-down events on Windows.
|
||||
|
||||
* term/w32-win.el: No need to bind wheel events specially.
|
||||
|
||||
2003-06-01 Michael Kifer <kifer@cs.stonybrook.edu>
|
||||
|
||||
* desktop.el (desktop-create-buffer): Added (desktop-first-buffer) to
|
||||
|
@ -58,8 +58,10 @@
|
||||
'mouse-wheel-down-event)
|
||||
(defcustom mouse-wheel-down-event
|
||||
;; In the latest versions of XEmacs, we could just use mouse-%s as well.
|
||||
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
|
||||
mouse-wheel-down-button))
|
||||
(if (eq system-type 'windows-nt)
|
||||
'wheel-up
|
||||
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
|
||||
mouse-wheel-down-button)))
|
||||
"Event used for scrolling down."
|
||||
:group 'mouse
|
||||
:type 'symbol
|
||||
@ -70,8 +72,10 @@
|
||||
'mouse-wheel-up-event)
|
||||
(defcustom mouse-wheel-up-event
|
||||
;; In the latest versions of XEmacs, we could just use mouse-%s as well.
|
||||
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
|
||||
mouse-wheel-up-button))
|
||||
(if (eq system-type 'windows-nt)
|
||||
'wheel-down
|
||||
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
|
||||
mouse-wheel-up-button)))
|
||||
"Event used for scrolling down."
|
||||
:group 'mouse
|
||||
:type 'symbol
|
||||
|
Loading…
Reference in New Issue
Block a user