mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(mouse-wheel-down-event, mouse-wheel-up-event):

Browse Source 
Default to new wheel-up and wheel-down events on Windows.
This commit is contained in:
Jason Rumney 2003-06-01 22:14:30 +00:00
parent 230c8ad7bf
commit f4e6226079
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -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> 2003-06-01 Michael Kifer <kifer@cs.stonybrook.edu>
* desktop.el (desktop-create-buffer): Added (desktop-first-buffer) to * desktop.el (desktop-create-buffer): Added (desktop-first-buffer) to

12
lisp/mwheel.el
View File

@ -58,8 +58,10 @@
'mouse-wheel-down-event) 'mouse-wheel-down-event)
(defcustom mouse-wheel-down-event (defcustom mouse-wheel-down-event
;; In the latest versions of XEmacs, we could just use mouse-%s as well. ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") (if (eq system-type 'windows-nt)
mouse-wheel-down-button)) 'wheel-up
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
mouse-wheel-down-button)))
"Event used for scrolling down." "Event used for scrolling down."
:group 'mouse :group 'mouse
:type 'symbol :type 'symbol
@ -70,8 +72,10 @@
'mouse-wheel-up-event) 'mouse-wheel-up-event)
(defcustom mouse-wheel-up-event (defcustom mouse-wheel-up-event
;; In the latest versions of XEmacs, we could just use mouse-%s as well. ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") (if (eq system-type 'windows-nt)
mouse-wheel-up-button)) 'wheel-down
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
mouse-wheel-up-button)))
"Event used for scrolling down." "Event used for scrolling down."
:group 'mouse :group 'mouse
:type 'symbol :type 'symbol